fact: Definition smallRowQuery x := (fun p a respond_oracle => e <- fst p; z <- snd p; p' <-$ BoundedRepeat _ (expnat 2 (t - 2)) (queryRow respond_oracle x a) (fun p => let (e', z') := p in (V_accept x a e' z' && negb (eqb e e'))) p; e' <- fst p'; z' <- snd p'; extract x a e e' z z').
imports: Crypto FCF RndNat Asymptotic