fact: Definition O encryptO (pri : PrivateKey) (s : list Ciphertext)(c : A_cmd) := match c with | Enc p => [c, s] <-$2 encryptO s p; ret (inl c, c :: s) | Dec c => if (in_dec (EqDec_dec _) c s) then ret (inl c, s) else ret (inr (Decrypt c pri), s) end.
imports: FCF.FCF