X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Flifts_basic.ma;h=2eefef1fc7941a5dd389d2d1683df785544aab78;hp=d6dc490e05e6e8ed7118d56efa5c811d7a5a09d5;hb=98e786e1a6bd7b621e37ba7cd4098d4a0a6f8278;hpb=5d9f7ae4bad2b5926f615141c12942b9a8eb23fb

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 d6dc490e0..2eefef1fc 100644
--- a/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/relocation/lifts_basic.ma
@@ -24,13 +24,13 @@ interpretation "basic relocation (term)"
 (* Properties with basic relocation *****************************************)
 
 lemma lifts_lref_lt (m,n,i): i < m → ⇧[m,n] #i ≘ #i.
-/3 width=1 by lifts_lref, at_basic_lt/ qed.
+/3 width=1 by lifts_lref, pr_pat_basic_lt/ qed.
 
 lemma lifts_lref_ge (m,n,i): m ≤ i → ⇧[m,n] #i ≘ #(n+i).
-/3 width=1 by lifts_lref, at_basic_ge/ qed.
+/3 width=1 by lifts_lref, pr_pat_basic_ge/ qed.
 
 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/
+>(nplus_minus_sn_refl_sn i n) in ⊢ (???%);
+/3 width=2 by lifts_lref_ge, nle_minus_dx_dx, nle_inv_plus_sn_dx/
 qed.