def hd0_fit

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/poly1305/value.bend:306

import Base
import bend-collections-laws-crypto@1.0.0.0/spec/lib/common.bend as C
import bend-collections-laws-crypto@1.0.0.0/src/crypto/poly1305/limbs.bend as Li
import bend-collections-laws-crypto@1.0.0.0/proofs/lib/logic.bend as L

306def hd0_fit(+ds: List<&2, U32>, +k: Nat, +h: {fit_all(ds, k) == True{} : Bool}) -> {C.fits(k, v(Li.hd0(ds))) == True{} : Bool}:
307  match ds:
308    case Nil{}: fits_zero(k)
309    case x <> t: L.and_left(C.fits(k, v(x)), fit_all(t, k), h)