| m < # wlar ⊦ (ecs(wlar, # wlar) -- wlar[m].ec) ++ wle.ec = (m < # wlar ⊃ (ecs(wlar) -- wlar[m].ec) ++ wle.ec;ecs(wlar)) |
m < # wlar ⊦ ecs(wlar, # wlar) -- wlar[m].ec = ecs(wlar) -- wlar[m].ec
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ bag ++ n = bag2 ++ n ↔ bag = bag2; (s)