Proof using.
intros.
apply (H p p).
constructor.
Qed.

(* Specifications: *)
Theorem strongind_pos :
P xH ->
(forall q, ((forall p, le_pos p q -> P p) -> P (xI q)) /\
((forall p, le_pos p q -> P p) -> P (xO q))) ->
forall p, P p.