proposition: Theorem pluspf_inv1 : forall a b p q, ltT ltM b a -> eqP A eqA n (pX a (pluspf p (pX b q))) (pluspf (pX a p) (pX b q)).
proof: Proof. Proof using os multA minusA invA divA cs A1. intros a b p q H'; try assumption. rewrite (plusP_inv1 a b p q (pluspf (pX a p) (pX b q))); auto. Qed.
imports: Coq(Arith) Buchberger(LetP)