intros b P Q R; unfold genPcPf in |- *; case (genPcPf0 b P Q).
intros x H' H'0 H'1 H'2 a H'3.
apply Cb_genPcP with (i := b) (P := P) (Q := x) (R := Q); auto.
Qed.

Theorem genPcPf_incl :
forall (a : poly A0 eqA ltM) (aL Q : list (poly A0 eqA ltM)),
incl Q (genPcPf a aL Q).