law fold

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/poly1305/proof.bend:52

import Base
import bend-collections-laws-crypto@1.0.0.0/spec/crypto/subtle.bend as SS
import bend-collections-laws-crypto@1.0.0.0/src/crypto/subtle.bend as Subtle

52law fold:
53  for +a: List<&2, U32>
54  for +b: List<&2, U32>
55  for +acc: U32
56  {Bool.and(Nat.is_eq(List.length(&2, U32, a), List.length(&2, U32, b)), U32.is_eq(Subtle.diff(a, b, acc), 0)) ==
57    Bool.and(U32.is_eq(acc, 0), SS.equal(a, b)) : Bool}