def shl_add

bend-collections-laws-crypto@1.0.0.0 · proofs/lib/u32alg.bend:307

import Base

307def shl_add(+x: U32) -> {U32.shl(x) == U32.add(x, x) : U32}:
308  match x:
309    case U32{w}:
310      Equal.cong(Word(32n), U32, v => U32{v}, Word.shl(32n, w), Word.add(32n, w, w), w_shl(32n, w))