update in delayed_updating

[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / unwind / unwind2_path_structure.ma

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_structure.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_structure.ma
index 7cb6190b11af81f04ba5484124656f71da921eab..9436b0c2aa7521c951e240302dc291dc789307d9 100644 (file)
--- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_structure.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_structure.ma
@@ -14,9 +14,6 @@
 
 include "delayed_updating/unwind/unwind2_path.ma".
 include "delayed_updating/unwind/unwind_gen_structure.ma".
-include "delayed_updating/syntax/path_inner.ma".
-include "delayed_updating/syntax/path_proper.ma".
-include "ground/xoa/ex_4_2.ma".
 
 (* UNWIND FOR PATH **********************************************************)
 
@@ -114,3 +111,13 @@ elim (unwind_gen_inv_append_inner_sn … Hq1 H0) -Hq1 -H0
 <reverse_rcons <list_tl_lcons <unwind2_rmap_append
 @ex3_2_intro [4: |*: // ] <unwind2_path_unfold // (**) (* auto fails *)
 qed-.
+
+(* Destructions with inner condition for path *******************************)
+
+lemma unwind2_path_des_inner (f) (p):
+      ▼[f]p ϵ 𝐈 → p ϵ 𝐈.
+#f #p @(list_ind_rcons … p) -p //
+#p * [ #n ] #_ //
+<unwind2_path_d_dx #H0
+elim (pic_inv_d_dx … H0)
+qed-.