fact: Definition refines2 (f:hT1 -> hT1 -> hT1) (f': T1 -> T1 -> T1 ) := forall x y : hT1, f' (h2g x) (h2g y) = h2g (f x y).
imports: mathcomp(all_ssreflect zify) Coq(Logic.Eqdep_dec) hydras(DecPreOrder ON_Generic T1 E0)