intros a b nZa nZb.
apply divTerm_def with (nZb := nZb); auto.
apply
(eqTerm_trans _ _ _ _ _ _ _ _ _ cs n)
with
(y := multTerm (A:=A) multA (n:=n)
(multTerm (A:=A) multA (n:=n) a (divTerm b nZb)) b);
auto.
apply eqTerm_multTerm_comp with (1 := cs); auto.
apply (eqTerm_sym _ _ _ _ _ _ _ _ _ cs n); apply divTerm_multTerm_l; auto.
Qed.
Hint Resolve divTerm_multTermr divTerm_multTerml.

Theorem divP_trans : transitive (Term A n) divP.
red in |- *; intros a b c H' H'0.