fact: Record min {l r m : A} : Prop := { min_l : m <= l ; min_r : m <= r ; min_greatest : forall m', m' <= l -> m' <= r -> m' <= m }.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat