intros p;
apply
(eqp_trans _ _ _ _ _ _ _ _ _ cs n)
with
(y := pluspf (A:=A) A0 (eqA:=eqA) plusA eqA_dec (n:=n) (ltM:=ltM)
ltM_dec p
(mults (A:=A) multA (n:=n)
(invTerm (A:=A) invA (n:=n) (T1 A1 n))
(pO A n))); auto; simpl in |- *; auto.
Qed.
Hint Resolve minuspf_pO_refl.

(* Specifications: *)
Theorem minuspf_pOmults :
forall p : list (Term A n),
eqP A eqA n (minuspf (pO A n) p)
(mults (A:=A) multA (n:=n) (invTerm (A:=A) invA (n:=n) (T1 A1 n)) p).