fact: Record inf {I : Type} (f : I -> A) (m : A) : Prop := { inf_le : forall i, m <= f i ; inf_greatest : forall m', (forall i, m' <= f i) -> m' <= m }.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat