intros a b; case a; case b; simpl in |- *; auto.
intros a0 m a1 m0 nZa H; split; auto.
apply divA_is_multA with (1 := cs); auto.
apply ppcm_prop_l.
Qed.

(* Specifications: *)
Theorem divTerm_ppcr :
forall a b : Term A n,
~ zeroP (A:=A) A0 eqA (n:=n) a ->
forall nZb : ~ zeroP (A:=A) A0 eqA (n:=n) b,
eqTerm (A:=A) eqA (n:=n) (ppc a b)
(multTerm (A:=A) multA (n:=n) (divTerm (ppc a b) nZb) b).