| ((r => mknode(r2, a, r3) * tr(r2, t0) * tr(r3, t1)) * P)(H), True(mknode(r2, a, r3) = mknode(r0, a, r1)) ⊦ (r => mknode(r0, a, r1) * tr(r0, t0) * tr(r1, t1) * P)(H) |
⊦ True(bv) ↔ bv
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (P0 * P1) * P2 = P0 * P1 * P2], [CSIMPSEQ : ⊦ P0 * P1 = P1 * P0], [CSIMPSEQ : ⊦ mknode(r, a, r0) = mknode(r1, a0, r2) ↔ r = r1 ∧ a = a0 ∧ r0 = r2])], [EXTRATERMS : (mknode(r2, a, r3) = mknode(r0, a, r1))]]