law dec_enc_head

bend-osdev-mode-core@0.1.0.0 · LAWS.bend:165

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

165# the first block's round trip, and the rest's
166law dec_enc_head:
167  for ~K: Data
168  for ~enc: K -> M.CmBlock -> M.CmBlock
169  for ~dec: K -> M.CmBlock -> M.CmBlock
170  for +k: K
171  for +x: M.CmBlock
172  for +xs: List<&2, M.CmBlock>
173  for +h: {M.CmBlock.dec_enc(~K, ~enc, ~dec, k, Con{x, xs}) == Con{x, xs} : List<&2, M.CmBlock>}
174  {dec(k, enc(k, x)) == x : M.CmBlock}