let update_group_project_dgrad gnum pnum c = do_something_group_project (fun p -> set_project_dgrad p c) (fun () -> ()) gnum pnum