law shr_value_lt

bend-osdev-word64@0.1.1.0 · LAWS.bend:172

import Base
import bend-osdev-u32@0.1.0.0/u32.bend as U
import bend-osdev-word64@0.1.1.0/word64.bend as W

172law shr_value_lt:
173  for +a: W.W64
174  for +k: Nat
175  for hk: {Nat.is_lt(k, 64n) == True{} : Bool}
176  {Nat.is_lt(W.W64.to_nat(a), U.U32Nat.dbl(k, 1n+W.W64.to_nat(W.W64.shr(a, k)))) == True{} : Bool}