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