intros a b c; case a; case b; case c; simpl in |- *; auto.
intros a0 m a1 m0 a2 m1 nZa nZb nZppab H H0; split; auto.
apply divA_is_multA with (1 := cs); auto.
apply ppcm_mom_is_ppcm; intuition.
Qed.

(* Specifications: *)
Theorem divTerm_ppcl :
forall (a b : Term A n) (nZa : ~ zeroP (A:=A) A0 eqA (n:=n) a),
~ 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) nZa) a).