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