def cam_op_unop

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

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

98def cam_op_unop(o: C.LcCamOp, +s: M.CmBlock) -> {s == C.cam.op(o, C.cam.unop(o, s)) : M.CmBlock}:
99  match o:
100    case C.LcCamWhite{a, b}:
101      cam_white(a, b, s)
102    case C.LcCamF1{t, k}:
103      cam_f1d(t, k, s)
104    case C.LcCamF2{t, k}:
105      cam_f2d(t, k, s)
106    case C.LcCamFl{a, b}:
107      cam_fl_step_dual(a, b, s)
108    case C.LcCamSwap{}:
109      match s:
110        case M.CmBlock{s0, s1, s2, s3}:
111          {==}