fact: Definition iapp_prod {F : Type -> Type -> Type -> Type} `{IApplicative F} {I J K X Y} (x : F I J X) (y : F J K Y) : F I K (X * Y)%type := pair <$$> x <**> y.
imports: Hask.Ltac Hask.Prelude FunctionalExtensionality