def tea_run_unrun

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

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/tea.bend as TE

1550def tea_run_unrun(os: List<&2, TE.LcTeaOp>, +b: L.LcBlock64) -> {b == TE.tea.run(os, TE.tea.unrun(os, b)) : L.LcBlock64}:
1551  match os:
1552    case Nil{}:
1553      {==}
1554    case Con{+o, +t}:
1555      %tea_op_unop(o, TE.tea.unrun(t, b)) : {b == TE.tea.run(t, _) : L.LcBlock64}
1556      tea_run_unrun(t, b)