let group_find_project_at_address (g:group) (add:paddress) = match add with 
  | []   -> g.proj;
  | x::c -> create_find_subproject_at_address (g.proj) add