intros a b; case a; case b; simpl in |- *; auto.
intros a0 m a1 m0; split; auto.
apply ppcm_com; auto.
Qed.

(* Specifications: *)
Theorem divTerm_ppc :
forall (a b c : 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)),
eqTerm (A:=A) eqA (n:=n) c (multTerm (A:=A) multA (n:=n) (divTerm c nZa) a) ->
eqTerm (A:=A) eqA (n:=n) c (multTerm (A:=A) multA (n:=n) (divTerm c nZb) b) ->
eqTerm (A:=A) eqA (n:=n) c
(multTerm (A:=A) multA (n:=n) (divTerm c nZppab) (ppc a b)).