fact: Definition DDH_real : package DDH_locs [interface] [interface #val #[ SAMPLE ] : 'unit → 'group × 'group × 'group ] := [package #def #[ SAMPLE ] (_ : 'unit) : 'group × 'group × 'group { a ← sample uniform i_space ;; b ← sample uniform i_space ;; #put secret_loc1 := a ;; #put secret_loc2 := b ;; ret (fto (g^+ a), (fto (g^+ b), fto (g^+(a * b)))) } ].
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)