]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma
ground_2 released and permanently renamed as ground
[helm.git] / matita / matita / contribs / lambdadelta / static_2 / relocation / lifts_basic.ma
index 6d2ca03d9cca00fadb643d4bb80b597501936ed4..d6dc490e05e6e8ed7118d56efa5c811d7a5a09d5 100644 (file)
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/relocation/rtmap_basic_after.ma".
+include "ground/relocation/rtmap_basic_after.ma".
 include "static_2/notation/relations/rlift_4.ma".
 include "static_2/relocation/lifts.ma".
 
@@ -23,13 +23,13 @@ interpretation "basic relocation (term)"
 
 (* Properties with basic relocation *****************************************)
 
-lemma lifts_lref_lt (m,n,i): i < m â\86\92 â¬\86[m,n] #i ≘ #i.
+lemma lifts_lref_lt (m,n,i): i < m â\86\92 â\87§[m,n] #i ≘ #i.
 /3 width=1 by lifts_lref, at_basic_lt/ qed.
 
-lemma lifts_lref_ge (m,n,i): m â\89¤ i â\86\92 â¬\86[m,n] #i ≘ #(n+i).
+lemma lifts_lref_ge (m,n,i): m â\89¤ i â\86\92 â\87§[m,n] #i ≘ #(n+i).
 /3 width=1 by lifts_lref, at_basic_ge/ qed.
 
-lemma lifts_lref_ge_minus (m,n,i): n+m â\89¤ i â\86\92 â¬\86[m,n] #(i-n) ≘ #i.
+lemma lifts_lref_ge_minus (m,n,i): n+m â\89¤ i â\86\92 â\87§[m,n] #(i-n) ≘ #i.
 #m #n #i #Hi
 >(plus_minus_m_m i n) in ⊢ (???%);
 /3 width=2 by lifts_lref_ge, le_plus_to_minus_l, le_plus_b/