- [ @lift_grafted_S /2 width=2 by ex_intro/ | skip ]
- @(subset_eq_trans … (lift_term_after …))
- @(subset_eq_canc_dx … (lift_term_after …))
- @lift_term_eq_repl_sn -t1
+ [ @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