fact: Definition two_ops : Ops bool := {| le := (fun b1 b2 : bool => if b1 then b2 = true else True) ; eq := Logic.eq ; max := orb ; min := andb |}.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat