def m64_join_rev

bend-osdev-legacy-ciphers@0.1.0.0 · PROOF.bend:8539

import Base
import bend-osdev-legacy-ciphers@0.1.0.0/legacy_ciphers.bend as L
import bend-osdev-legacy-ciphers@0.1.0.0/modes64.bend as X

8539def m64_join_rev(bs: List<&2, L.LcBlock64>, +zs: List<&2, L.LcBlock64>, +ys: List<&2, U32>) -> {X.m64.join(zs, m64_joins(bs, ys)) == X.m64.join(X.m64.rev_onto(bs, zs), ys) : List<&2, U32>}:
8540  match bs:
8541    case Nil{}:
8542      {==}
8543    case Con{b, t}:
8544      m64_join_rev(t, Con{b, zs}, ys)