intros a b; case a; case b; simpl in |- *; auto.
split; auto.
apply minusA_def with (1 := cs); auto.
Qed.

(* Specifications: *)
Theorem minusTerm_eqT :
forall m1 m2 : Term, eqT m1 m2 -> eqT (minusTerm m1 m2) m1.