| nx0 = nx, nx1 = nx, wlar0 = wlar, valid-indices(wlar, nx) ⊦ dups(nx), ∃ nx. nx0 = nx + nx0 ∧ wlar = wlar.mapIndices(nx, λ wle. wle.ec:= n) ∧ valid-indices(wlar, nx) ∧ ¬ dups(nx0) |
valid-indices(wlar, nx) ⊦ dups(nx), valid-indices(wlar, [])
Used simplifier rules: ⊦ wlar.mapIndices([], f0) = wlar; (s)%a: ⊦ (nx + nx0) + nx1 = nx + nx0 + nx1; from specification list[nat-list-set]% ⊦ nx = nx0 + nx ↔ nx0 = []; (s)