Definition spolyf :
  forall (p q : list (Term A n)) (Cp : canonical A0 eqA ltM p)
    (Cq : canonical A0 eqA ltM q), list (Term A n).

Theorem spolyf_pO : forall (a : list (Term A n)) (Ca : canonical A0 eqA ltM a), eqP A eqA n (spolyf a a Ca Ca) (pO A n).