fact: Record morph {f : A -> B} : Prop := { f_L : L.morph LOps LOps f ; f_sup : forall {Ix : Type} (g : Ix -> A), L.eq (f (sup g)) (sup (fun i => f (g i))) ; f_top : L.eq (f top) top }.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat