fact: Definition knowledgeExtractor_h(x : Blist)(oracle : rewindable_P_oracle)(rowQuery : (Bvector t * Response) -> Commitment -> P_respond_oracle -> Comp Blist) := (oracle _ _ (fun a respond_oracle => [e, z] <-$2 queryRow respond_oracle x a; ret ((e, z), V_accept x a e z)) _ rowQuery).
imports: Crypto FCF RndNat Asymptotic