WordEncoding.concat: def of stelliferous@0.0.2.0
Import: import stelliferous@0.0.2.0/proofs/word_encoding.bend as WordEncoding
Lines 4-13 of stelliferous@0.0.2.0/proofs/word_encoding.bend: https://jend.leeeet.dev/read.txt?path=stelliferous@0.0.2.0/proofs/word_encoding.bend&start_line=4&end_line=13

import Base

def concat(+n: Nat, +m: Nat, w: Word(n), tail: Word(m)) -> Word(Nat.add(n,m)):
  match n:
    case 0n:
      match w:
        case WNil{}:
          tail
    case 1n+p:
      match w:
        case WCon{b,rest}:
          WCon{b,concat(p,m,rest,tail)}

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.add
  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