Definition s2p : poly A0 eqA ltM -> list (Term A n).

Theorem In_inp_inPolySet : forall (Q : list (poly A0 eqA ltM)) (p : poly A0 eqA ltM), In p Q -> ~ eqP A eqA n (s2p p) (pO A n) -> inPolySet (s2p p) Q.