| (r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P0 * P1)(H) ⊦ (tr(r, branch(t0, a, t1)) * P0 * true)(H) |
⊦ tr(r, branch(t0, a, t1)) = _∃ λ r0, r1. r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1)
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (t1, a, t0, r)]]