let mem_project f x = f x.ff_fct.fi_project.application