Definition RelMonad_composed_data : RelMonad_data (J ∙ F). Proof. repeat use tpair. - exact (λ a, F (T a)). - cbn. intro a. exact (#F (r_eta T _ )). - cbn. intros a b f. exact (φinv (r_bind T (φ f · ηinv _ ) · eta _ )). Defined.
Require Import UniMath.Foundations.PartD. Require Import UniMath.Foundations.Propositions. Require Import UniMath.Foundations.Sets. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.PartA. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Core.Isos. Require Import UniMath.CategoryTheory.Core.Functors. Require Import UniMath.CategoryTheory.Core.NaturalTransformations. Require Import UniMath.CategoryTheory.FunctorCategory. Require Import UniMath.CategoryTheory.Adjunctions.Core. Require Import UniMath.CategoryTheory.Monads.RelativeMonads.