- @(subset_eq_trans … (unwind_fsubst …))
- [ (*<unwind_rmap_append <unwind_rmap_A_sn <unwind_rmap_append <unwind_rmap_L_sn *)
- <structure_append <structure_A_sn <structure_append <structure_L_sn
- <depth_append <depth_L_sn <depth_structure <depth_structure
- @fsubst_eq_repl [ // ]
- @(subset_eq_trans … (unwind_iref …))
-
- elim Hb -Hb #Hb #H0 <H0 -H0 <nrplus_zero_dx <nplus_zero_dx <nsucc_unfold
- >Hn
- @(subset_eq_canc_sn … (lift_term_eq_repl_dx …))
- [ @unwind_grafted_S /2 width=2 by ex_intro/ | skip ]
- <Hn <Hn
-(*
- @(subset_eq_trans … (lift_term_eq_repl_dx …))
- [ @(unwind_term_eq_repl_sn … (tls_succ_unwind q …)) | skip ]
-*)
-(*
-
- @subset_eq_trans
- [2: @unwind_term_eq_repl_dx
- @(subset_eq_canc_sn … (unwind_term_eq_repl_dx …))
-
- @(subset_eq_canc_sn … (unwind_term_eq_repl_dx …))
- [ @unwind_grafted_S /2 width=2 by ex_intro/ | skip ]
-
- @(subset_eq_trans … (unwind_term_after …))
- @(subset_eq_canc_dx … (unwind_term_after …))
- @unwind_term_eq_repl_sn -t1
- @(stream_eq_trans … (tr_compose_uni_dx …))
- lapply (Hn (𝐢)) -Hn >tr_id_unfold #Hn
- lapply (pippo … b … Hn) -Hn #Hn
- @tr_compose_eq_repl
- [ <unwind_rmap_pap_le //
- <Hn <nrplus_inj_sn //
- |
- ]
-*)
+ @(subset_eq_trans … (unwind2_term_fsubst …))
+ [ @fsubst_eq_repl [ // | // ]
+ @(subset_eq_trans … (unwind2_term_iref …))
+ @(subset_eq_canc_sn … (unwind2_term_eq_repl_dx …))
+ [ @unwind2_term_grafted_S /2 width=2 by ex_intro/ | skip ] -Ht1
+ @(subset_eq_trans … (unwind2_term_after …))
+ @unwind2_term_eq_repl_sn
+(* Note: crux of the proof begins *)
+ @nstream_eq_inv_ext #m
+ <tr_compose_pap <tr_compose_pap
+ <tr_uni_pap <tr_uni_pap <tr_pap_plus
+ >list_append_rcons_sn in H1n; <reverse_append #H1n
+ lapply (unwind2_rmap_append_pap_closed f … H1n) #H2n
+ >nrplus_inj_dx in ⊢ (???%); <H2n -H2n
+ lapply (tls_unwind2_rmap_append_closed f … H1n) -H1n #H2n
+ <(tr_pap_eq_repl … H2n) -H2n //
+(* Note: crux of the proof ends *)