def sp_run_unrun

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

import Base
import bend-osdev-cipher-modes@0.1.0.0/cipher_modes.bend as M
import bend-osdev-legacy-ciphers@0.1.0.0/serpent.bend as P

1317def sp_run_unrun(os: List<&2, P.LcSpOp>, +s: M.CmBlock) -> {s == P.sp.run(os, P.sp.unrun(os, s)) : M.CmBlock}:
1318  match os:
1319    case Nil{}:
1320      {==}
1321    case Con{+o, +t}:
1322      %sp_op_unop(o, P.sp.unrun(t, s)) : {s == P.sp.run(t, _) : M.CmBlock}
1323      sp_run_unrun(t, s)