elim (tdeq_inv_pair … H) -H #H destruct
| @or_intror @(ex2_intro … (ⓓ{p}ⓝW1.V1.U1)) [ /2 width=1 by cpm_beta/ ] #H
elim (tdeq_inv_pair … H) -H #H destruct
- ]
+ ]
| #T2 #HT12 #HnT12 #_
@or_intror @(ex2_intro … (ⓐV1.T2)) [ /2 width=1 by cpm_appl/ ] #H
elim (tdeq_inv_pair … H) -H /2 width=1 by/