Record IdiomaticTransformation (F G:Applicative) := idiomaticTransformation
{ transform :> forall a, F a -> G a
; _ : forall a (x:a), transform (pure F x) = pure G x
; _ : forall a b (f : F (a -> b)) x, transform (ap f x) = ap (transform f) (transform x)
}.
Section IdiomaticTransformation.
Variables (F G:Applicative).
Variable (eta : IdiomaticTransformation F G).

Lemma idiomaticTransform_map a b (f: a -> b) (x: F a) :
eta _ (map f x) = map f (eta _ x).