NatExtrema.pick_strict_lower: def of stelliferous@0.0.2.0
Import: import stelliferous@0.0.2.0/proofs/nat_extrema.bend as NatExtrema
Lines 74-78 of stelliferous@0.0.2.0/proofs/nat_extrema.bend: https://jend.leeeet.dev/read.txt?path=stelliferous@0.0.2.0/proofs/nat_extrema.bend&start_line=74&end_line=78

import Base

def pick_strict_lower(choice: Bool,+left: Nat,+right: Nat,+lower: Nat,left_ok: {Nat.is_lt(lower,left) == True{} : Bool},right_ok: {Nat.is_lt(lower,right) == True{} : Bool}) ->
  {Nat.is_lt(lower,Bool.pick(Nat,choice,left,right)) == True{} : Bool}:
  match choice:
    case False{}: right_ok
    case True{}: left_ok

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool.pick
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.is_lt