def ecb_ref

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

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

8601def ecb_ref(~K: Data, ~f: K -> L.LcBlock64 -> L.LcBlock64, +k: K, bs: List<&2, L.LcBlock64>, +acc: List<&2, L.LcBlock64>) -> {X.m64.ecb.go(~K, ~f, k, bs, acc) == X.m64.rev_onto(acc, X.m64.ecb(~K, ~f, k, bs)) : List<&2, L.LcBlock64>}:
8602  match bs:
8603    case Nil{}:
8604      {==}
8605    case Con{b, t}:
8606      ecb_ref(~K, ~f, k, t, Con{f(k, b), acc})