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