X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_basic.ma;h=d6dc490e05e6e8ed7118d56efa5c811d7a5a09d5;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=6d2ca03d9cca00fadb643d4bb80b597501936ed4;hpb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma index 6d2ca03d9..d6dc490e0 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma @@ -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 → ⬆[m,n] #i ≘ #i. +lemma lifts_lref_lt (m,n,i): i < m → ⇧[m,n] #i ≘ #i. /3 width=1 by lifts_lref, at_basic_lt/ qed. -lemma lifts_lref_ge (m,n,i): m ≤ i → ⬆[m,n] #i ≘ #(n+i). +lemma lifts_lref_ge (m,n,i): m ≤ i → ⇧[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 ≤ i → ⬆[m,n] #(i-n) ≘ #i. +lemma lifts_lref_ge_minus (m,n,i): n+m ≤ i → ⇧[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/