def hi_one

bend-collections-laws-math@1.0.0.0 · proofs/math/random/fround.bend:167

import Base
import bend-collections-laws-math@1.0.0.0/spec/lib/common.bend as C
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/u32laws.bend as LW
import bend-collections-laws-math@1.0.0.0/proofs/math/typed/natcmp.bend as NC

167def hi_one(+H0: Nat, +a: {Nat.is_eq(C.half(H0), 0n) == True{} : Bool}, +b: {Nat.is_eq(H0, 0n) == False{} : Bool}) -> {H0 == 1n : Nat}:
168  match H0:
169    case 0n:
170      Empty.absurd({0n == 1n : Nat}, LW.true_ne_false(b))
171    case 1n:
172      {==}
173    case 2n+ +p:
174      NC.absurd_tf({2n+p == 1n : Nat}, a)