Refinement.get_high: def of bendtorch-core@0.1.0.0
Import: import bendtorch-core@0.1.0.0/src/storage/refinement.bend as Refinement
Lines 46-58 of bendtorch-core@0.1.0.0/src/storage/refinement.bend: https://jend.leeeet.dev/read.txt?path=bendtorch-core@0.1.0.0/src/storage/refinement.bend&start_line=46&end_line=58

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

def get_high(-T: Data, -p: Nat, -original: Array<T>, -n: U32, -i: U32,
  xs: Array<T>,
  child: Get<T, p, original, U32.shr(n), U32.sub(i, U32.shr(n)),
    U32.is_lt(U32.sub(i, U32.shr(n)), U32.shr(U32.shr(n)))>,
  ex: Model.Balanced(T, p, xs)) -> Get<T, 1n+p, ANode{xs, original}, n, i, False{}>:
  match child:
    case Get{ys, value, equal, kept, observed, ey}:
      Get{ANode{xs, ys}, value,
        Equal.cong(Array<T> & T, Array<T> & T, r => Array.swap.hi(T, xs, r),
          (ys, value), Array.get.go(T, original, U32.shr(n), U32.sub(i, U32.shr(n)),
            U32.is_lt(U32.sub(i, U32.shr(n)), U32.shr(U32.shr(n)))), equal),
        Equal.cong(Array<T>, Array<T>, y => ANode{xs, y}, ys, original, kept),
        observed, (ex, ey)}

Uses (14):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array.get.go
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array.swap.hi
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Equal.cong
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Sigma
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.is_lt
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.shr
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32.sub
  https://jend.leeeet.dev/definition.txt?path=bendtorch-core@0.1.0.0/src/storage/model.bend&name=Balanced
  https://jend.leeeet.dev/definition.txt?path=bendtorch-core@0.1.0.0/src/storage/refinement.bend&name=Get