~/jendhub

def get.gt

bend-kit-collections@0.1.4.1 · PROOF.bend:603

import bend-kit-collections@0.1.4.1/PROOF.bend as PROOF
import Base
import bend-kit-collections@0.1.4.1/omap.bend as O

603# get on a node goes to hi when the comparison is GT.
604def get.gt(
605  ~K: Data, ~V: Data, ~cmp: K -> K -> Cmp, +x: K, +k: K, +v: V,
606  +lo: O.OMap<K, V>, +hi: O.OMap<K, V>, e: {cmp(x, k) == GT{} : Cmp}
607) -> {O.OMap.get(~K, ~V, ~cmp, O.OBin{0, k, v, lo, hi}, x)
608      == O.OMap.get(~K, ~V, ~cmp, hi, x) : Maybe<&2, V>}:
609  rw(Cmp, c => {getc(~K, ~V, ~cmp, c, x, v, lo, hi)
610      == O.OMap.get(~K, ~V, ~cmp, hi, x) : Maybe<&2, V>},
611    cmp(x, k), GT{}, e, {==})

Uses (6)

Used by (5)