Module Type ZMulOrderProp (Import Z : ZAxiomsMiniSig').
Include ZAddOrderProp Z.
Notation mul_pos := lt_0_mul (only parsing).
Notation mul_neg := lt_mul_0 (only parsing).
Notation mul_nonneg := le_0_mul (only parsing).
Notation mul_nonpos := le_mul_0 (only parsing).
Notation le_0_square := square_nonneg (only parsing).

Theorem le_mul_diag_r : forall n m, 0 < n -> (1 <= m <-> n <= n * m).