def law_swap_at_refines

bendtorch-core@0.1.0.0 · src/storage/refinement.bend:437

import Base
import bendtorch-core@0.1.0.0/src/storage/model.bend as Model
import bendtorch-core@0.1.0.0/src/storage/array.bend as Core

437def law_swap_at_refines(-T: Data, d: Nat, array: Array<T>, +n: U32, +i: U32, new: T,
438  valid: Model.Balanced(T, d, array)) ->
439  {first(T, Array.swap.at(T, i, new, (array, n))) ==
440    Core.write_path(T, d, array, route_n(d, n, i), new) : Array<T>}:
441  swap_go_written(T, d, array, n, masked(n, i), U32.is_lt(masked(n, i), U32.shr(n)), new,
442    swap_go(T, d, array, n, masked(n, i), new, U32.is_lt(masked(n, i), U32.shr(n)), valid))