Definition genPcPf0 :
  forall (i : poly A0 eqA ltM) (aP R : list (poly A0 eqA ltM)),
  {Q : list (poly A0 eqA ltM) | genPcP i aP R Q}.Definition genPcPf :
  poly A0 eqA ltM ->
  list (poly A0 eqA ltM) -> list (poly A0 eqA ltM) -> list (poly A0 eqA ltM).

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