fact: Definition KEM_DEM : PKE_scheme := {| PKE_kgen := η.(KEM_kgen) ; PKE_enc := λ pk m, {code '(k, ek) ← η.(KEM_encap) pk ;; let c := θ.(DEM_enc) k m in ret (ek, c) } ; PKE_dec := λ sk c, let '(ek, c) := c in let k := η.(KEM_decap) sk ek in θ.(DEM_dec) k c |}.
imports: Relational(OrderEnrichedCategory GenericRulesSimple) mathcomp(all_ssreflect all_algebra reals distr fingroup.fingroup realsum ssrnat ssreflect ssrfun ssrbool ssrnum eqtype choice seq) Crypt(Axioms ChoiceAsOrd SubDistr Couplings UniformDistrLemmas FreeProbProg Theta_dens RulesStateProb UniformStateProb Package Prelude pkg_composition) Coq(Utf8 Lia) extructures(ord fset fmap) Equations(Equations)