NatExtrema.successor_pick: def of stelliferous@0.0.2.0
Import: import stelliferous@0.0.2.0/proofs/nat_extrema.bend as NatExtrema
Lines 7-11 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=7&end_line=11

import Base

def successor_pick(choice: Bool,+left: Nat,+right: Nat) ->
  {1n+Bool.pick(Nat,choice,left,right) == Bool.pick(Nat,choice,1n+left,1n+right) : Nat}:
  match choice:
    case False{}: {==}
    case True{}: {==}

Uses (3):
  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