intros a b c d; case a; case b; case c; case d; unfold eqT in |- *;
simpl in |- *; auto.
intros H' c0 H'0 c2 H'1 c3 H'2 c4 H'3 H'4; rewrite H'3; rewrite H'4; auto.
Qed.

Theorem multTerm_assoc :
forall a b c : Term,
eqTerm (multTerm a (multTerm b c)) (multTerm (multTerm a b) c).