intros a b H' H'0.
elim ppc_is_ppcm; auto.
Qed.
Hint Resolve ppc_multTerm_divP.

Theorem divP_comp :
forall a b c d : Term A n,
divP a c ->
eqTerm (A:=A) eqA (n:=n) a b -> eqTerm (A:=A) eqA (n:=n) c d -> divP b d.