Arith.unit: def of bendtorch-core@0.1.0.0
Import: import bendtorch-core@0.1.0.0/src/storage/arith.bend as Arith
Lines 387-396 of bendtorch-core@0.1.0.0/src/storage/arith.bend: https://jend.leeeet.dev/read.txt?path=bendtorch-core@0.1.0.0/src/storage/arith.bend&start_line=387&end_line=396

import Base

def unit(m: Nat, +k: Nat) -> Word(m):
  match m:
    case 0n:
      WNil{}
    case 1n+q:
      match k:
        case 0n:
          WCon{True{}, Word.zero(q)}
        case 1n+r:
          WCon{False{}, unit(q, r)}

Uses (6):
  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=Word
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Word.Con
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Word.Nil
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Word.zero