fact: Record morph `{OA : Ops A} `{OB : Ops B} {f : A -> B} : Prop := { f_PO : PO.morph le eq le eq f ; f_min : forall a b, eq (f (min a b)) (min (f a) (f b)) }.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat