def cam_unop_op

bend-osdev-camellia@0.1.0.0 · PROOF.bend:83

import Base
import bend-osdev-mode-core@0.1.0.0/mode_core.bend as M
import bend-osdev-camellia@0.1.0.0/camellia.bend as C

83def cam_unop_op(o: C.LcCamOp, +s: M.CmBlock) -> {s == C.cam.unop(o, C.cam.op(o, s)) : M.CmBlock}:
84  match o:
85    case C.LcCamWhite{a, b}:
86      cam_white(a, b, s)
87    case C.LcCamF1{t, k}:
88      cam_f1(t, k, s)
89    case C.LcCamF2{t, k}:
90      cam_f2(t, k, s)
91    case C.LcCamFl{a, b}:
92      cam_fl_step(a, b, s)
93    case C.LcCamSwap{}:
94      match s:
95        case M.CmBlock{s0, s1, s2, s3}:
96          {==}