-lemma cpr_fwd_abst1: ∀a,L,V1,T1,U2. L ⊢ ⓛ{a}V1.T1 ➡ U2 → ∀I,W.
- ∃∃V2,T2. L ⊢ V1 ➡ V2 & L. ⓑ{I} W ⊢ T1 ➡ T2 &
- U2 = ⓛ{a} V2. T2.
-#a #L #V1 #T1 #U2 #H #I #W
-elim (cpr_inv_abst1 … H) -H #V2 #T2 #HV12 #HT12 #H destruct
-lapply (cpr_lsubr_trans … HT12 (L.ⓑ{I}W) ?) -HT12 /2 width=1/ /2 width=5/
-qed-.
-
-
-lemma cpr_fwd_ext_abst1: ∀a,L,V1,T1,U2. L ⊢ ⓛ{a}V1.T1 ➡ U2 → ∀b,I,W.
- ∃∃V2,T2. L ⊢ V1 ➡ V2 & L ⊢ ⓑ{b,I}W.T1 ➡ ⓑ{b,I}W.T2 &
- U2 = ⓛ{a}V2.T2.
-#a #L #V1 #T1 #U2 #H #b #I #W
-elim (cpr_fwd_abst1 … H I W) -H /3 width=5/
-qed-.
-