simp [Functor.map]
R₁ R₂ R₃ : Type
E : Type → Type
f : R₁ → R₂
g : R₂ → R₃
t : Fitree E R₁
⊢ (g ∘ f) <$> t = g <$> f <$> t
R₁ R₂ R₃ : Type
E : Type → Type
f : R₁ → R₂
g : R₂ → R₃
t : Fitree E R₁
⊢ bind t (ret ∘ g ∘ f) = bind t fun x => ret (g (f x))