def sp_unrun_run

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

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

1309def sp_unrun_run(os: List<&2, P.LcSpOp>, +s: M.CmBlock) -> {s == P.sp.unrun(os, P.sp.run(os, s)) : M.CmBlock}:
1310  match os:
1311    case Nil{}:
1312      {==}
1313    case Con{+o, +t}:
1314      %sp_unrun_run(t, P.sp.op(o, s)) : {s == P.sp.unop(o, _) : M.CmBlock}
1315      sp_unop_op(o, s)