Section IdiomaticTransformation.
Variables (F G:Applicative).
Variable (eta : IdiomaticTransformation F G).
End IdiomaticTransformation.
Definition extractIT i : IdiomaticTransformation (KSApplicative i i) IdApplicative.
exists (@extract i).
exact (@extract_pure i).
exact (@extract_ap i).
Defined.

Lemma duplicate_pure i j k a (x : a) :
duplicate j (KSpure i k x) = KSpure i j (KSpure j k x).