intros a b H nZb H0; apply divTerm_on_eqT_eqT; auto.
Qed.
Hint Resolve divP_on_eqT divP_on_eqT_eqT.
Inductive ppcm (p q : Term A n) : Term A n -> Prop :=
ppcm0 :
forall s : Term A n,
(forall r : Term A n, divP r p -> divP r q -> divP r s) ->
divP s p -> divP s q -> ppcm p q s.
Hint Resolve ppcm0.

Theorem ppc_is_ppcm :
forall a b : Term A n,
~ zeroP (A:=A) A0 eqA (n:=n) a ->
~ zeroP (A:=A) A0 eqA (n:=n) b -> ppcm a b (ppc a b).