∀ {R : Type u_1} {M : Type u_2} [inst : Semiring R] [inst_1 : PartialOrder R] [inst_2 : AddCommMonoid M]
  [inst_3 : PartialOrder M] [inst_4 : SMulWithZero R M],
  (∀ {a b : M} {c : R}, a < b → 0 < c → c • a < c • b) →
    (∀ {a b : M} {c : R}, c • a < c • b → 0 < c → a < b) → OrderedSMul R M