| wlar[n0] = wl-entry(m2, stat0), wlar[m] = wl-entry(m2, stat1), ecs(wlar[m, wl-entry(m0, stat)], n0) = (ecs(wlar, n0) -- m2) ++ m0, m + 1 < # wlar, n0 < # wlar, m < # wlar, m < n0 ⊦ ecs(wlar, n0) ++ m2 = ecs(wlar, n0), n0 = m, m2 ∈ ecs(wlar, n0) |
wlar[m] = wl-entry(m2, stat1), wlar[n0] = wl-entry(m2, stat0), ecs(wlar[m, wl-entry(m0, stat)], n0) = (ecs(wlar, n0) -- m2) ++ m0, m < n0, m < # wlar, n0 < # wlar, m + 1 < # wlar ⊦ ecs(wlar, n0) ++ m2 = ecs(wlar, n0), n0 = m, m2 ∈ ecs(wlar, n0)