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