Proof using.
intros t1 H; red in |- *.
intros a t0 t3 H0 H1 H2.
apply (H a t0 t3); auto.
Qed.

(* Specifications: *)
(* Direct subtrees of a tree with distinct leaves have distinct leaves *)
Theorem distinct_pbleaves_pr :
forall t1 : pbtree, distinct_pbleaves (pbright t1) -> distinct_pbleaves t1.
(* A leaf have distinct leaves *)
Theorem distinct_pbleaves_pbleaf : forall a : A, distinct_pbleaves (pbleaf a).
Proof using.