- some refactoring and minor additions

[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / functional / lift.ma

diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma
index bf05ea36a2765cbcd37e568bb8508380aebff48f..4792a7ea5e9bed89caac4c10c59aa29c9a9be55d 100644 (file)
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/lift.ma
@@ -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.