]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_path_length.ma
update in delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / substitution / lift_path_length.ma
index f384cf7467621b88e03dceb0e9acdf6cea1b70d5..a4b81aeebf057c0dc0200eb75b9e461f696befad 100644 (file)
@@ -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