intros a b c; case a; case b; case c; unfold ltT in |- *; simpl in |- *; auto.
intros a0 m a1 m0 a2 m1 H.
apply ltM_plusl with (1 := os); auto.
Qed.

(* Specifications: *)
Theorem multTerm_ltT_r :
forall m1 m2 m3,
ltT m1 m2 -> ltT (multTerm multA m1 m3) (multTerm multA m2 m3).