(* Properties with relocation ***********************************************)
-lemma mf_delta_drops (h) (G): â\88\80K,V1,V2. â¦\83G,Kâ¦\84 â\8a¢ V1 â\9e¡[h] V2 →
- ∀T,L,l. ⬇*[l] L ≘ K.ⓓV1 →
- â\88\80gv,lv. â¦\83G,Lâ¦\84 â\8a¢ â\97\8f[gv,â\87¡[lâ\86\90#l]lv]T â\9e¡[h] â\97\8f[gv,â\87¡[lâ\86\90â\86\91[â\86\91l]V2]lv]T.
+lemma mf_delta_drops (h) (G): â\88\80K,V1,V2. â\9dªG,Kâ\9d« â\8a¢ V1 â\9e¡[h,0] V2 →
+ ∀T,L,i. ⇩[i] L ≘ K.ⓓV1 →
+ â\88\80gv,lv. â\9dªG,Lâ\9d« â\8a¢ â\97\8f[gv,â\87¡[iâ\86\90#i]lv]T â\9e¡[h,0] â\97\8f[gv,â\87¡[iâ\86\90â\86\91[â\86\91i]V2]lv]T.
#h #G #K #V1 #V2 #HV #T elim T -T * //
-[ #i #L #l #HKL #gv #lv
+[ #i #L #j #HKL #gv #lv
>mf_lref >mf_lref
- elim (lt_or_eq_or_gt i l) #Hl destruct
- [ >(mf_vpush_lt … Hl) >(mf_vpush_lt … Hl) //
+ elim (lt_or_eq_or_gt i j) #Hj destruct
+ [ >(mf_vpush_lt … Hj) >(mf_vpush_lt … Hj) //
| >mf_vpush_eq >mf_vpush_eq
/2 width=6 by cpm_delta_drops/
- | >(mf_vpush_gt … Hl) >(mf_vpush_gt … Hl) //
+ | >(mf_vpush_gt … Hj) >(mf_vpush_gt … Hj) //
]
-| #p #I #V #T #IHV #IHT #L #l #HLK #gv #lv
+| #p #I #V #T #IHV #IHT #L #j #HLK #gv #lv
>mf_bind >mf_bind
>(mf_comp … T) in ⊢ (?????%?);
[2: @mf_vpush_swap // |4: @exteq_refl |3,5: skip ]
>(mf_comp … T) in ⊢ (??????%);
[2: @mf_vpush_swap // |4: @exteq_refl |3,5: skip ]
- >(flifts_lref_uni 1 l) >(flifts_compose_uni 1 (↑l))
+ >(flifts_lref_uni 1 j) >(flifts_compose_uni 1 (↑j))
/4 width=1 by cpm_bind, drops_drop/
-| #I #V #T #IHV #IHT #L #l #HLK #gv #lv
+| #I #V #T #IHV #IHT #L #j #HLK #gv #lv
>mf_flat >mf_flat /3 width=1 by cpr_flat/
]
qed.