def small_fits

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u32int.bend:922

import Base
import bend-collections-laws-math@1.0.0.0/spec/lib/common.bend as C

922def small_fits(+x: Nat, +h: {Nat.is_le(x, 1n) == True{} : Bool}) -> {C.fits(32n, x) == True{} : Bool}:
923  match x:
924    case 0n:
925      {==}
926    case 1n:
927      {==}
928    case 2n+y:
929      Empty.absurd({C.fits(32n, 2n+y) == True{} : Bool}, true_ne_false(Equal.sym(Bool, False{}, True{}, h)))