| r ∈ h ⊦ (r.=>_ * hP)(h(r := o)) ↔ (r => o * hP)(h(r := o)) |
¬((r.=>_ * hP)(h(r := o)) ↔ (r => o * hP)(h(r := o))), r ∈ h ⊦
| ¬((r.=>_ * hP)(h(r := o)) ↔ (r => o * hP)(h(r := o))), r ∈ h ⊦ |
r ∈ h ⊦ (∃ b. (r => b * hP)(h(r := o))) ↔ (r => o * hP)(h(r := o))
Used simplifier rules: mapex: ⊦ r.=>_ = _∃(λ o. r => o); sep-com: ⊦ hP0 * hP1 = hP1 * hP0; from specification map-sep sep-ass: ⊦ (hP0 * hP1) * hP2 = hP0 * hP1 * hP2; from specification map-sep ⊦ (_∃ bP * hP)(h) ↔ (∃ b. (bP(b) * hP)(h)); (s)
| r ∈ h ⊦ (∃ b. (r => b * hP)(h(r := o))) ↔ (r => o * hP)(h(r := o)) |
r ∈ h, (r => o * hP)(h(r := o)) ⊦ ∃ b. (r => b * hP)(h(r := o))
Used simplifier rules: map-write: r ∈ h ⊦ (r => o0 * hP)(h(r := o1)) → o0 = o1; (forward) from specification refmap-maplet sep-ass: ⊦ (hP0 * hP1) * hP2 = hP0 * hP1 * hP2; from specification map-sep sep-com: ⊦ hP0 * hP1 = hP1 * hP0; from specification map-sep
| r ∈ h, (r => o * hP)(h(r := o)) ⊦ ∃ b. (r => b * hP)(h(r := o)) |
(r => o * hP)(h(r := o)), r ∈ h ⊦ ∃ b. (r => b * hP)(h(r := o))
Used simplifier rules: sep-com: ⊦ hP0 * hP1 = hP1 * hP0; from specification map-sep sep-ass: ⊦ (hP0 * hP1) * hP2 = hP0 * hP1 * hP2; from specification map-sep map-write: r ∈ h ⊦ (r => o0 * hP)(h(r := o1)) → o0 = o1; (forward) from specification refmap-maplet
| (r => o * hP)(h(r := o)), r ∈ h ⊦ ∃ b. (r => b * hP)(h(r := o)) |
Used terms: o
The following image shows the proof tree of sequent calculus. The proved goal is at the bottom. You can click on the nodes to view additional rules. See here for details on colors in a proof tree.