| v ∈ vols ↔ (∃ ebatbl, vols0. vols = vols0[v, ebatbl] ∧ ¬ v ∈ vols0), v ∈ vols, ∀ vols0. # vols0 < # vols → true → # to-vtbl(vols0) = # vols0 ⊦ # to-vtbl(vols) = # vols |
∀ vols1. # vols1 < # vols0[v, ebatbl] → true → # to-vtbl(vols1) = # vols1 ⊦ # to-vtbl(vols0)[v, # ebatbl] = # vols0 + 1, v ∈ vols0
Used simplifier rules: to-vtbl-rec: ⊦ to-vtbl(vols[v, ebatbl]) = to-vtbl(vols -- v)[v, # ebatbl];% ⊦ ¬ v ∈ vols → # vols[v, ebatbl] = # vols + 1; (s)% ⊦ ¬ v ∈ vols → vols -- v = vols; (s)% ⊦ v ∈ vols[v0, ebatbl] ↔ v = v0 ∨ v ∈ vols; (ws)