X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fmf_lifts.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fmf_lifts.ma;h=725be277c167293160ad66be199545b13e0abc24;hb=291fe1d3b56faf91d07099f43f3ebde2988649e1;hp=25093779b0b224179419956098ac32ce081cd66a;hpb=b5507c449ba38a76666a35664f9cf4e1953ad8ec;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/mf_lifts.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/mf_lifts.ma index 25093779b..725be277c 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/functional/mf_lifts.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/functional/mf_lifts.ma @@ -19,7 +19,7 @@ include "apps_2/functional/mf_exteq.ma". (* Properties with relocation ***********************************************) -lemma mf_lifts_basic_SO_dx (T) (j): ∀gv,lv. ↑[j,1]●[gv,lv]T = ●[⇡[j]gv,⇡[j]lv]T. +lemma mf_lifts_basic_SO_dx (T) (j): ∀gv,lv. ↑[j,1]■[gv,lv]T = ■[⇡[j]gv,⇡[j]lv]T. #T elim T -T * // [ #p #I #V #T #IHV #IHT #j #gv #lv >mf_bind >mf_bind >flifts_basic_bind