X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Fmodels%2Fveq_lifts.ma;h=c6a8e2f7953f46ee5da569b3e8851e1144826cd2;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=2c624e69fa36f6b20010d02d8d295b1f6336d7ed;hpb=bd53c4e895203eb049e75434f638f26b5a161a2b;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma b/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma index 2c624e69f..c6a8e2f79 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "ground_2/relocation/rtmap_basic.ma". +include "ground/relocation/rtmap_basic.ma". include "static_2/relocation/lifts.ma". include "apps_2/models/veq.ma". @@ -66,6 +66,6 @@ fact lifts_fwd_vpush_aux (M): is_model M → is_extensional M → qed-. lemma lifts_SO_fwd_vpush (M) (gv): is_model M → is_extensional M → - ∀T1,T2. ⇧*[1] T1 ≘ T2 → + ∀T1,T2. ⇧[1] T1 ≘ T2 → ∀lv,d. ⟦T1⟧[gv,lv] ≗{M} ⟦T2⟧[gv,⫯[0←d]lv]. /2 width=3 by lifts_fwd_vpush_aux/ qed-.