intros a b c H' nZb H'1; inversion H'1.
apply divTerm_def with (nZb := nZb0); auto.
apply divTerm_eqT with (a := a); auto.
Qed.

Theorem eqTerm_multTerm_imp_eqTerm :
forall a b c : Term A n,
~ zeroP (A:=A) A0 eqA (n:=n) c ->
eqTerm (A:=A) eqA (n:=n) (multTerm (A:=A) multA (n:=n) c a)
(multTerm (A:=A) multA (n:=n) c b) -> eqTerm (A:=A) eqA (n:=n) a b.