law to_nat_shln_p
import lawful-words@0.1.0.0/proof_u32.bend as ProofU32import Base
1070law to_nat_shln_p:
1071 for +a: U32
1072 for +k: Nat
1073 {U32.to_nat(U32.shln(a, k)) == Nat.mod(Nat.mul(U32.to_nat(a), Nat.pow(2n, k)), Nat.pow(2n, 32n)) : Nat}