Module Import Private_Tac := !MakeOrderTac O O.
(** An alternative characterisation of [max], equivalent to [max_l /\ max_r] *)
(** A more symmetric version of [max_spec], based only on [le]. Beware that left and right alternatives overlap. *)

Lemma max_spec_le n m :
(n <= m /\ max n m == m) \/ (m <= n /\ max n m == n).