[ /2 width=1 by or_introl/
| #s #_ #_ #H destruct
| /3 width=8 by ex4_4_intro, or_intror/
-| #m #K #V1 #V2 #i #_ #_ #_ #_ #H destruct
+| #k #K #V1 #V2 #i #_ #_ #_ #_ #H destruct
]
qed-.
#h #G #L #T2 #i #H elim (cpm_inv_lref1_drops … H) -H *
[ /2 width=1 by or_introl/
| /3 width=6 by ex3_3_intro, or_intror/
-| #m #K #V1 #V2 #_ #_ #_ #H destruct
+| #k #K #V1 #V2 #_ #_ #_ #H destruct
]
qed-.