Lemmas.bit: def of bend-kit-lemmas@0.1.1.0
Import: import bend-kit-lemmas@0.1.1.0/lemmas.bend as Lemmas
Lines 13-19 of bend-kit-lemmas@0.1.1.0/lemmas.bend: https://jend.leeeet.dev/read.txt?path=bend-kit-lemmas@0.1.1.0/lemmas.bend&start_line=13&end_line=19

import Base

# The value of a word whose low bit is x and whose upper bits have value t.
def bit(x: Bool, t: Nat) -> Nat:
  match x:
    case False{}:
      Nat.double(t)
    case True{}:
      1n+Nat.double(t)

Uses (3):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.double