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