| ⊦ v0 = v, (v0 ∈ to-vtbl(vols -- v)[v, # ebatbl] ↔ v0 ∈ to-vtbl(vols)[v, # ebatbl]) ∧ to-vtbl(vols -- v)[v, # ebatbl][v0] = to-vtbl(vols)[v, # ebatbl][v0] |
⊦ to-vtbl(vols -- v)[v0] = to-vtbl(vols)[v0], v0 = v
Used simplifier rules: to-vtbl-in: ⊦ v ∈ to-vtbl(vols) ↔ v ∈ vols;% ⊦ v ≠ v0 → vtbl[v0, n][v] = vtbl[v]; (s)% ⊦ v ∈ vols -- v0 ↔ v ≠ v0 ∧ v ∈ vols; (s)% ⊦ v ≠ v0 → (v ∈ vtbl[v0, n] ↔ v ∈ vtbl); (s)