| m < # lpt ⊦ remove-wbufs(ns, lpt)[m] = (m ∈ ns ⊃ lpt[m].size:= LEB_SIZE;lpt[m]) |
m < # lpt ⊦ lpt.mapIndices(ns, λ lp. lp.size:= LEB_SIZE)[m] = (m ∈ ns ⊃ lpt[m].size:= LEB_SIZE;lpt[m])
Used simplifier rules: remove-wbufs: ⊦ remove-wbufs(ns, lpt) = lpt.mapIndices(ns, λ lp. lp.size:= LEB_SIZE);% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic