| # lpt = # avol, m = m1, m0 = m2, m2 < # avol, ebm-vol-inv(avol) ⊦ ⟪if m0 < # avol then avol[m0] := unmapped else abort⟫ (ebm-vol-inv(avol) ∧ # lpt = # avol) |
# lpt = # avol, m = m1, m0 = m2, m2 < # avol, ebm-vol-inv(avol) ⊦ ⟪avol[m0] := unmapped⟫ (ebm-vol-inv(avol) ∧ # lpt = # avol)
Used simplifier rules: ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s)