intros x y H'; elim H'; auto.
intros ma mb p q H H0 H1.
apply eqpP1; auto.
apply (eqTerm_sym _ _ _ _ _ _ _ _ _ cs n); auto.
Qed.

(* Specifications: *)
Lemma eqp_inv1 : forall p, eqP (pO A n) p -> p = pO A n.
unfold pO in |- *; intros p H'; inversion H'; auto.