]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/apps_2/models/veq_lifts.ma
ground_2 released and permanently renamed as ground
[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / models / veq_lifts.ma
index 13a0f9113c23e77285a929b81928b35b8ded52b2..c6a8e2f7953f46ee5da569b3e8851e1144826cd2 100644 (file)
@@ -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".
 
@@ -21,7 +21,7 @@ include "apps_2/models/veq.ma".
 (* Forward lemmas with generic relocation ***********************************)
 
 fact lifts_fwd_vpush_aux (M): is_model M → is_extensional M →
-                              â\88\80f,T1,T2. â¬\86*[f] T1 â\89\98 T2 â\86\92 â\88\80m. ð\9d\90\81â\9d´m,1â\9dµ = f →
+                              â\88\80f,T1,T2. â\87§*[f] T1 â\89\98 T2 â\86\92 â\88\80m. ð\9d\90\81â\9d¨m,1â\9d© = f →
                               ∀gv,lv,d. ⟦T1⟧[gv,lv] ≗{M} ⟦T2⟧[gv,⫯[m←d]lv].
 #M #H1M #H2M #f #T1 #T2 #H elim H -f -T1 -T2
 [ #f #s #m #Hf #gv #lv #d
@@ -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 →
-                                   â\88\80T1,T2. â¬\86*[1] T1 ≘ T2 →
+                                   â\88\80T1,T2. â\87§[1] T1 ≘ T2 →
                                    ∀lv,d. ⟦T1⟧[gv,lv] ≗{M} ⟦T2⟧[gv,⫯[0←d]lv].
 /2 width=3 by lifts_fwd_vpush_aux/ qed-.