intros a b nZa nZb.
elim divTerm_dec with (a := a) (nZb := nZb); auto.
intros H'1; left; apply divTerm_def with (nZb := nZb); auto.
Qed.

Theorem divP_eqT :
forall a b c : Term A n,
eqT a b -> ~ zeroP (A:=A) A0 eqA (n:=n) b -> divP a c -> divP b c.