fact: Definition Zmax_min_modular_l : forall x y z : Z, Z.max (Z.min (Z.max x z) y) z = Z.min (Z.max x z) (Z.max y z) := @join_meet_modular_l Zto.
imports: Coq.ZArith.Zmin Coq.ZArith.Zmax Coq.ZArith.ZArith CoRN.order.TotalOrder