law pp_eq

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/poly1305/mac.bend:187

import Base
import bend-collections-laws-crypto@1.0.0.0/spec/lib/common.bend as C

187# p == 1 + bp
188law pp_eq:
189  for +one: Nat
190  for +h1: {one == 1n : Nat}
191  for +bp: Nat
192  for +h5: {Nat.add(1n+bp, 5n) == C.shift(130n, one) : Nat}
193  {Nat.sub(C.shift(130n, one), 5n) == 1n+bp : Nat}