Omap.OMap.put: def of bend-kit-collections@0.1.4.1
Import: import bend-kit-collections@0.1.4.1/omap.bend as Omap
Lines 130-140 of bend-kit-collections@0.1.4.1/omap.bend: https://jend.leeeet.dev/read.txt?path=bend-kit-collections@0.1.4.1/omap.bend&start_line=130&end_line=140

import Base

def OMap.put(
  ~K: Data, ~V: Data, ~cmp: K -> K -> Cmp, m: OMap<K, V>, +k: K, +v: V
) -> OMap<K, V>:
  match m:
    case OTip{}:
      OBin{1, k, v, OTip{}, OTip{}}
    case OBin{+s, +key, +val, +lo, +hi}:
      Cmp.case(OMap<K, V>, cmp(k, key),
        u => OMap.balance(K, V, key, val, OMap.put(~K, ~V, ~cmp, lo, k, v), hi),
        u => OBin{s, key, v, lo, hi},
        u => OMap.balance(K, V, key, val, lo, OMap.put(~K, ~V, ~cmp, hi, k, v)))

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Cmp
  https://jend.leeeet.dev/definition.txt?path=bend-kit-collections@0.1.4.1/omap.bend&name=Cmp.case
  https://jend.leeeet.dev/definition.txt?path=bend-kit-collections@0.1.4.1/omap.bend&name=OMap
  https://jend.leeeet.dev/definition.txt?path=bend-kit-collections@0.1.4.1/omap.bend&name=OMap.balance