(* Properties with extensional equivalence **********************************)
-lemma mf_comp (T): compatible_3 â\80¦ (λgv,lv.â\97\8f[gv,lv]T) (exteq …) (exteq …) (eq …).
+lemma mf_comp (T): compatible_3 â\80¦ (λgv,lv.â\96 [gv,lv]T) (exteq …) (exteq …) (eq …).
#T elim T -T *
[ //
| #i #gv1 #gv2 #Hgv #lv1 #lv2 #Hlv
(* Advanced properties ******************************************************)
-lemma mf_id (T): â\97\8f[mf_gi,mf_li]T = T.
+lemma mf_id (T): â\96 [mf_gi,mf_li]T = T.
#T elim T -T * //
[ #p #I #V #T #IHV #IHT
<IHV in ⊢ (???%); <IHT in ⊢ (???%); -IHV -IHT