((r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P0 * P1))(H) ⊦ ((tr(r, branch(t0, a, t1)) * P0 * true))(H)