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