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