let pp_title fmt x =
         Format.fprintf fmt "Equality for %a"
           F.Compinfo.pp_title x