(* Properties with tr_compose ***********************************************)
lemma unwind_gen_after (f2) (f1) (p):
- ◆[f2]◆[f1]p = ◆[λn.(f2 ((f1 n)@❨n❩))∘(f1 n)]p.
+ ◆[f2]◆[f1]p = ◆[λn.(f2 ((f1 n)@⧣❨n❩))∘(f1 n)]p.
#f2 #f1 #p @(path_ind_unwind … p) -p //
#n #_ <unwind_gen_d_empty <unwind_gen_d_empty //
qed.