def bytes_eq

bend-collections-laws-math@1.0.0.0 · proofs/math/random/chacha8/seed.bend:13

import Base
import bend-collections-laws-math@1.0.0.0/src/math/random/chacha8.bend as C8
import bend-collections-laws-math@1.0.0.0/spec/math/random/chacha8rand.bend as S

13def bytes_eq(+bs: List<&2, U32>) -> {C8.all_bytes(bs) == S.bytes_ok(bs) : Bool}:
14  match bs:
15    case Nil{}:
16      {==}
17    case Con{+b, +rest}:
18      Equal.cong(Bool, Bool, z => Bool.and(U32.is_lt(b, 256), z), C8.all_bytes(rest), S.bytes_ok(rest), bytes_eq(rest))