| (r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P)(H) ⊦ (_∃ λ r0, r1. r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P)(H) ∧ True(true) |
(r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P)(H) ⊦ (∃ r0, r1. ((r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1)) * P)(H)) ∧ True(true)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ P0 * P1 = P1 * P0], [CSIMPSEQ : ⊦ (P0 * P1) * P2 = P0 * P1 * P2], [CSIMPSEQ : ⊦ (_∃ rrP * P)(H) ↔ (∃ r0, r1. (rrP(r0, r1) * P)(H))])]]