def minimum_strict_lower

stelliferous@0.0.2.0 · proofs/nat_extrema.bend:90

import Base

90def minimum_strict_lower(+left: Nat,+right: Nat,+lower: Nat,left_ok: {Nat.is_lt(lower,left) == True{} : Bool},right_ok: {Nat.is_lt(lower,right) == True{} : Bool}) ->
91  {Nat.is_lt(lower,Nat.min(left,right)) == True{} : Bool}:
92  %Equal.sym(Nat,Nat.min(left,right),Bool.pick(Nat,Nat.is_lt(left,right),left,right),minimum_choice(left,right)) : {Nat.is_lt(lower,_) == True{} : Bool}
93  pick_strict_lower(Nat.is_lt(left,right),left,right,lower,left_ok,right_ok)