def lt_one_zero

bend-collections-laws-crypto@1.0.0.0 · proofs/lib/u32.bend:193

import Base
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/nat.bend as N

193def lt_one_zero(+v: Nat, +e: {Nat.is_lt(v, 1n) == True{} : Bool}) -> {v == 0n : Nat}:
194  match v:
195    case 0n:
196      {==}
197    case 1n+p:
198      Empty.absurd({1n+p == 0n : Nat}, N.lt_zero_absurd(p, e))