X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Flift.ma;h=634a7eb4ae68ccf06ff9054ae118649f7c334ed1;hb=cfc43911db215e21036317b26bd1dcf9c3e5d435;hp=bf05ea36a2765cbcd37e568bb8508380aebff48f;hpb=e8998d29ab83e7b6aa495a079193705b2f6743d3;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma
index bf05ea36a..634a7eb4a 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "basic_2/substitution/lift.ma".
+include "basic_2/relocation/lift.ma".
 include "apps_2/functional/notation.ma".
 
 (* FUNCTIONAL RELOCATION ****************************************************)
@@ -63,6 +63,6 @@ qed-.
 lemma flift_join: ∀e1,e2,T. ⇧[e1, e2] ↑[0, e1] T ≡ ↑[0, e1 + e2] T.
 #e1 #e2 #T
 lapply (flift_lift T 0 (e1+e2)) #H
-elim (lift_split … H e1 e1 ? ? ?) -H // #U #H
+elim (lift_split … H e1 e1) -H // #U #H
 >(flift_inv_lift … H) -H //
 qed.