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