Definition nZterm : list (Term A n) -> Prop.Definition canonical (a : list (Term A n)) : Prop := olist a /\ nZterm a.

Theorem canonical_pX_eqT : forall a b p, canonical (pX a p) -> eqT a b -> ~ zeroP (A:=A) A0 eqA (n:=n) b -> canonical (pX b p).