| ⊦ (r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P)(H) → (¬ (tr(r, branch(t0, a, t1)) * P)(H) ↔ false) |
⊦ 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)]]