Definition posIT i j : IdiomaticTransformation (KSApplicative i j) (ConstListApplicative i).Definition research c (k : KSApplicative a b c) : F c :=
map (peek (k:=k)) (sequenceVector (Vector.map h (pos k))).

(* Specifications: *)
Lemma research_pure c (x : c) : research (pure _ x) = pure _ x.
Lemma research_ap c d (f : KSApplicative a b (c -> d)) (x : KSApplicative a b c): research (ap f x) = ap (research f) (research x).