| vols[v, fill(mkebatbl(n), unmapped)][v0][m] = ⌜n0⌝ , m < # vols[v, fill(mkebatbl(n), unmapped)][v0], v0 ∈ vols[v, fill(mkebatbl(n), unmapped)] ⊦ v0 = v, v ∈ vols, ∃ v, m. v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n0⌝ |
vols[v0][m] = ⌜n0⌝ , m < # vols[v0], v0 ∈ vols ⊦ v ∈ vols, ∃ v, m. v ∈ vols ∧ m < # vols[v] ∧ vols[v][m] = ⌜n0⌝
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ v ∈ vols ∧ ¬ v0 ∈ vols → vols[v0, ebatbl][v] = vols[v]; (s)% ⊦ v ≠ v0 → (v ∈ vols[v0, ebatbl] ↔ v ∈ vols); (s)% ⊦ v ≠ v0 → vols[v0, ebatbl][v] = vols[v]; (s)