fact: Definition product_ops `(OA : Ops A) `(OB : Ops B) : Ops (A * B) := {| le := prod_op le le ; eq := prod_op eq eq ; max := fun (x y : A * B) => (max (fst x) (fst y), max (snd x) (snd y)) ; min := fun (x y : A * B) => (min (fst x) (fst y), min (snd x) (snd y)) |}.
imports: SetoidClass Coq.Classes.Morphisms Coq.Arith.PeanoNat Fiat.Common.Coq__8_4__8_5__Compat