def nth_drop

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/argon2/memory.bend:189

import Base
import bend-collections-laws-crypto@1.0.0.0/spec/lib/common.bend as SC

189def nth_drop(+ws: List<&2, U32>, +base: Nat, +k: Nat) -> {nthv(SC.drop(U32, ws, base), k) == nthv(ws, Nat.add(base, k)) : U32}:
190  match ws base:
191    case Nil{} _:
192      {==}
193    case Con{h, t} 0n:
194      {==}
195    case Con{h, +t} 1n+ +b:
196      nth_drop(t, b, k)