def maximum_upper

stelliferous@0.0.2.0 · proofs/nat_extrema.bend:80

import Base

80def maximum_upper(+left: Nat,+right: Nat,+upper: Nat,left_ok: {Nat.is_le(left,upper) == True{} : Bool},right_ok: {Nat.is_le(right,upper) == True{} : Bool}) ->
81  {Nat.is_le(Nat.max(left,right),upper) == True{} : Bool}:
82  %Equal.sym(Nat,Nat.max(left,right),Bool.pick(Nat,Nat.is_lt(left,right),right,left),maximum_choice(left,right)) : {Nat.is_le(_,upper) == True{} : Bool}
83  pick_upper(Nat.is_lt(left,right),right,left,upper,right_ok,left_ok)