f2@⧣❨f1@⧣❨i❩❩ = (f2∘f1)@⧣❨i❩.
#i elim i -i
[ * #p1 #f1 #f2
- <tr_compose_unfold <tr_pap_unit <tr_pap_unit //
+ <tr_compose_unfold <tr_cons_pap_unit <tr_cons_pap_unit //
| #i #IH * #p1 #f1 #f2
- <tr_compose_unfold <tr_pap_succ <tr_pap_succ //
+ <tr_compose_unfold <tr_cons_pap_succ <tr_cons_pap_succ //
]
qed.