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