- @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 //
+ <list_append_rcons_sn
+ @(stream_eq_trans β¦ (tr_compose_uni_dx_pap β¦)) <tr_pap_succ_nap
+ @tr_compose_eq_repl
+ [ <nap_unwind2_rmap_append_closed_Lq_dx_depth //
+ | /2 width=2 by tls_succ_unwind2_rmap_append_closed_Lq_dx/
+ ]