fact: Record max {l r m : A} : Prop := { max_l : l <= m ; max_r : r <= m ; max_least : forall m', l <= m' -> r <= m' -> m <= m' }.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat