def Random.seeded

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/random/proof.bend:55

import Base
import bend-collections-laws-crypto@1.0.0.0/src/math/u64.bend as W
import bend-collections-laws-crypto@1.0.0.0/src/math/random/chacha8.bend as C8
import bend-collections-laws-crypto@1.0.0.0/src/crypto/random.bend as CR
import bend-collections-laws-crypto@1.0.0.0/spec/math/random/chacha8rand.bend as SC
import bend-collections-laws-crypto@1.0.0.0/spec/math/random.bend as SRM
import bend-collections-laws-crypto@1.0.0.0/spec/crypto/random.bend as SCR
import bend-collections-laws-crypto@1.0.0.0/proofs/math/random/chacha8/seed.bend as SEED

55def Random.seeded(+n: Nat, +seed: List<&2, U32>) -> SCR.Random.seeded(n, seed):
56  Equal.trans(Maybe<&2, List<&2, W.U64>>, SCR.map_outputs(n, CR.wrap(C8.new(seed))), SRM.map_outputs(n, C8.new(seed)), SRM.map_stream(n, SC.key_of_seed(seed)),
57    wrap_map(n, C8.new(seed)),
58    SEED.seeded(n, seed))