let pp_sl_project p_caller fmt p = let pp fmt = Format.fprintf fmt "@[<hv 2>!Db.Slicing.Project.from_unique_name@;%S@]" p.SlicingInternals.name in Type.par p_caller Type.Call fmt pp