def flat_below
bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/random/bytes.bend:203
import bend-collections-laws-crypto@1.0.0.0/proofs/crypto/random/bytes.bend as Bytes
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/spec/crypto/random.bend as SCR
203def flat_below(+os: List<&2, W.U64>) -> {SCR.below256(SCR.flat(os)) == True{} : Bool}:
204 match os:
205 case Nil{}:
206 {==}
207 case Con{+x, +rest}:
208 below_app(SCR.le_bytes(x), SCR.flat(rest), le_below(x), flat_below(rest))