(* Properties with multiple filling lift ************************************)
-lemma mf_vpush_vlift_swap_O (v) (T) (l): â\87¡[0â\86\90â\86\91[â\86\91l,1]T]â\87¡[l]v â\89\90⇡[↑l]⇡[0←T]v.
+lemma mf_vpush_vlift_swap_O (v) (T) (l): â\87¡[0â\86\90â\86\91[â\86\91l,1]T]â\87¡[l]v â\8a\9c⇡[↑l]⇡[0←T]v.
#v #T #l #i
elim (eq_or_gt i) #Hi destruct
[ >mf_vpush_eq >mf_vlift_rw >mf_vpush_eq //
]
qed.
-lemma mf_vpush_vlift_swap_O_lref_O (v) (l): â\87¡[0â\86\90#0]â\87¡[l]v â\89\90⇡[↑l]⇡[0←#0]v.
+lemma mf_vpush_vlift_swap_O_lref_O (v) (l): â\87¡[0â\86\90#0]â\87¡[l]v â\8a\9c⇡[↑l]⇡[0←#0]v.
#v #l @(mf_vpush_vlift_swap_O … (#0))
qed.