+ @(subset_eq_canc_sn … (lift_term_eq_repl_dx …))
+ [ @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
+ @(stream_eq_trans … (tr_compose_uni_dx …))
+ @tr_compose_eq_repl
+(*
+ >nrplus_inj_dx <tr_pap_plus
+*)