fact: Record KEM_scheme := { KEM_kgen : code fset0 [interface] (chProd 'pkey 'skey) ; KEM_encap : 'pkey → code fset0 [interface] (chProd 'key 'ekey) ; KEM_decap : 'skey → 'ekey → 'key }.
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)