Definition Vector (n : nat) : Traversal.Definition impure a b (x : a) : KleeneStore a b b :=
  kleeneStore (fun v => Vector.hd v) (Vector.cons _ x _ (Vector.nil _)).

Lemma research_impure (F:Applicative) a b (h : a -> F b) (x : a) : research h (impure b x) = h x.