def bf_run_unrun

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

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/blowfish.bend as BF

1618def bf_run_unrun(os: List<&2, BF.LcBfOp>, +b: L.LcBlock64) -> {b == BF.bf.run(os, BF.bf.unrun(os, b)) : L.LcBlock64}:
1619  match os:
1620    case Nil{}:
1621      {==}
1622    case Con{+o, +t}:
1623      %bf_op_unop(o, BF.bf.unrun(t, b)) : {b == BF.bf.run(t, _) : L.LcBlock64}
1624      bf_run_unrun(t, b)