-(*
-| lapply (in_comp_unwind2_path_term f ā¦ Ht1) -Ht2 -Ht1 -H0t1
- <unwind2_path_d_dx <depth_structure
- >list_append_rcons_sn in H1n; <reverse_append #H1n
- lapply (unwind2_rmap_append_pap_closed f ā¦ H1n)
- <reverse_lcons <depth_L_dx #H2n
- lapply (eq_inv_ninj_bi ā¦ H2n) -H2n #H2n <H2n -H2n -H1n #Ht1 //
-| lapply (unwind2_term_eq_repl_dx f ā¦ Ht2) -Ht2 #Ht2
+| lapply (in_comp_lift_path_term f ā¦ Ht1) -Ht2 -Ht1 -H1n
+ <lift_path_d_dx #Ht1 //
+| lapply (lift_term_eq_repl_dx f ā¦ Ht2) -Ht2 #Ht2