U32Successor.pad_nat: law of stelliferous@0.0.2.0
Import: import stelliferous@0.0.2.0/proofs/u32_successor.bend as U32Successor
Lines 6-9 of stelliferous@0.0.2.0/proofs/u32_successor.bend: https://jend.leeeet.dev/read.txt?path=stelliferous@0.0.2.0/proofs/u32_successor.bend&start_line=6&end_line=9

import Base

law pad_nat:
  for +n: Nat
  for +w: Word(n)
  {Word.to_nat(1n+n,Word.shr.pad(n,w)) == Word.to_nat(n,w) : Nat}

Uses (8):
  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
  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.shr.pad
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Word.to_nat