X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsubstitution%2Flift_path_length.ma;h=a4b81aeebf057c0dc0200eb75b9e461f696befad;hb=4ac2becfaa45abb18acb2bdf3db5d2587cadb6d4;hp=f384cf7467621b88e03dceb0e9acdf6cea1b70d5;hpb=f5b6fd3125c0aefa1db23fbdd23b887fa964f385;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_length.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_length.ma
index f384cf746..a4b81aeeb 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_length.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_length.ma
@@ -21,8 +21,9 @@ include "ground/lib/list_length.ma".
 
 lemma lift_path_length (p) (f):
       ❘p❘ = ❘↑[f]p❘.
-#p elim p -p // * [ #n ] #p #IH #f //
-[ <lift_path_m_sn
+#p elim p -p // * [ #n ] #p #IH #f
+[ <lift_path_d_sn
+| <lift_path_m_sn
 | <lift_path_L_sn
 | <lift_path_A_sn
 | <lift_path_S_sn