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