law byte_merge_hi

lawful-words@0.1.0.0 · LAWS.bend:446

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

446law byte_merge_hi:
447  for lo: U32
448  for hi: U32
449  for r: Nat
450  for j: Nat
451  for hr: {Nat.is_le(r, 4n) == True{} : Bool}
452  for hj: {Nat.is_lt(j, 4n) == True{} : Bool}
453  for h: {Nat.is_le(4n, Nat.add(j, r)) == True{} : Bool}
454  {D.byte(D.merge(lo, hi, r), j) == D.byte(hi, Nat.sub(Nat.add(j, r), 4n)) : U32}