law byte_merge_hi

lawful-words@0.1.0.0 · proof_bytes.bend:826

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

826law byte_merge_hi:
827  for +lo: U32
828  for +hi: U32
829  for +r: Nat
830  for +j: Nat
831  for +hr: {Nat.is_le(r, 4n) == True{} : Bool}
832  for +hj: {Nat.is_lt(j, 4n) == True{} : Bool}
833  for +h: {Nat.is_le(4n, Nat.add(j, r)) == True{} : Bool}
834  {D.byte(D.merge(lo, hi, r), j) == D.byte(hi, Nat.sub(Nat.add(j, r), 4n)) : U32}