law wbit_put
import lawful-words@0.1.0.0/proof_bytes.bend as ProofBytesimport Base
import lawful-words@0.1.0.0/proof_word.bend as W
149law wbit_put:
150 for +p: Nat
151 for +c: Bool
152 for +t: Word(p)
153 for +j: Nat
154 {W.wbit(p, Word.shl.put(p, c, t), j) == Bool.and(Nat.is_lt(j, p), W.wbit(1n+p, WCon{c, t}, j)) : Bool}