LAWS.byte_merge_hi: law of lawful-words@0.1.0.0
Import: import lawful-words@0.1.0.0/LAWS.bend as LAWS
Lines 446-454 of lawful-words@0.1.0.0/LAWS.bend: https://jend.leeeet.dev/read.txt?path=lawful-words@0.1.0.0/LAWS.bend&start_line=446&end_line=454

import Base
import lawful-words@0.1.0.0/defs.bend as D

law byte_merge_hi:
  for lo: U32
  for hi: U32
  for r: Nat
  for j: Nat
  for hr: {Nat.is_le(r, 4n) == True{} : Bool}
  for hj: {Nat.is_lt(j, 4n) == True{} : Bool}
  for h: {Nat.is_le(4n, Nat.add(j, r)) == True{} : Bool}
  {D.byte(D.merge(lo, hi, r), j) == D.byte(hi, Nat.sub(Nat.add(j, r), 4n)) : U32}

Uses (10):
  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.add
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.is_le
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.is_lt
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.sub
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=lawful-words@0.1.0.0/defs.bend&name=byte
  https://jend.leeeet.dev/definition.txt?path=lawful-words@0.1.0.0/defs.bend&name=merge
  https://jend.leeeet.dev/definition.txt?path=lawful-words@0.1.0.0/proof_bytes.bend&name=byte_merge_hi