X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_basic.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_basic.ma;h=fa1b12d002b989d9966727f4a81bc1d212454f4f;hb=67fe9cec87e129a2a41c75d7ed8456a6f3314421;hp=6d2ca03d9cca00fadb643d4bb80b597501936ed4;hpb=86861e6f031df66824a381527dfe847029ff72bc;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..fa1b12d00 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.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/