def pos_of

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u64int.bend:941

import Base

941def pos_of(+x: Nat, +h: {Nat.is_le(1n, x) == True{} : Bool}) -> {Nat.is_lt(0n, x) == True{} : Bool}:
942  match x:
943    case 0n:
944      Empty.absurd({Nat.is_lt(0n, 0n) == True{} : Bool}, true_ne_false(Equal.sym(Bool, False{}, True{}, h)))
945    case 1n+y:
946      {==}