intros a b c nZb nZc H'; inversion H'.
intros H'0; inversion H'0.
apply
(eqTerm_trans _ _ _ _ _ _ _ _ _ cs n)
with (y := divTerm (multTerm (A:=A) multA (n:=n) (divTerm a nZb) b) nZc);
auto.
Qed.
Hint Resolve divTerm_compo.

Theorem divP_comp_ppc0 :
forall (a b : Term A n) (nZa : ~ zeroP (A:=A) A0 eqA (n:=n) a)
(nZb : ~ zeroP (A:=A) A0 eqA (n:=n) b)
(nZppab : ~ zeroP (A:=A) A0 eqA (n:=n) (ppc a b))
(p : list (Term A n)),
eqTerm (A:=A) eqA (n:=n) b
(multTerm (A:=A) multA (n:=n)
(divTerm (multTerm (A:=A) multA (n:=n) a b) nZppab)
(divTerm (ppc a b) nZa)).