X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Funwind%2Funwind2_path_eq.ma;h=c1b188b60041c9132cc9d3b66979acb05f12157e;hb=61bc42e04598a9f5e489c3867af72e700c7fda04;hp=cb0826a0bc0df6d64122cf23a6d7d37d86c7121e;hpb=97ff918432e878ab8314c72fe2b948a253b26e21;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_eq.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_eq.ma
index cb0826a0b..c1b188b60 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_eq.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/unwind2_path_eq.ma
@@ -14,27 +14,16 @@
 
 include "delayed_updating/unwind/unwind2_path.ma".
 include "delayed_updating/unwind/unwind2_rmap_eq.ma".
-include "delayed_updating/unwind/unwind_gen_eq.ma".
-include "ground/relocation/tr_compose_compose.ma".
-include "ground/relocation/tr_compose_pn.ma".
 
-(* UNWIND FOR PATH **********************************************************)
+(* TAILED UNWIND FOR PATH ***************************************************)
 
-(* Constructions with stream_eq *********************************************)
+(* Constructions with tr_map_eq *********************************************)
 
 lemma unwind2_path_eq_repl (p):
       stream_eq_repl … (λf1,f2. ▼[f1]p = ▼[f2]p).
-/3 width=1 by unwind2_rmap_eq_repl, unwind_gen_eq_repl/
+* // * [ #k ] #p #f1 #f2 #Hf //
+<unwind2_path_d_dx <unwind2_path_d_dx
+lapply (unwind2_rmap_eq_repl … Hf) -Hf
+[| #Hf <(tr_pap_eq_repl … Hf) -f2 ] //
 qed-.
 
-(* Properties with tr_compose ***********************************************)
-
-lemma unwind2_path_after (p) (f1) (f2):
-      ▼[f2]▼[f1]p = ▼[f2∘f1]p.
-#p @(path_ind_unwind … p) -p // [ #n #l #p | #p ] #IH #f1 #f2
-[ <unwind2_path_d_lcons <unwind2_path_d_lcons
-  >(unwind2_path_eq_repl … (tr_compose_assoc …)) //
-| <(unwind2_path_L_sn … f1) <unwind2_path_L_sn <unwind2_path_L_sn
-  >tr_compose_push_bi //
-]
-qed.