From Tealeaves Require Export
  Classes.Categorical.ApplicativeCommutativeIdempotent
  Classes.Kleisli.TraversableFunctor.

#[local] Generalizable Variable T G A B C ϕ M.

Import TraversableFunctor.Notations.

Class TraversableCommIdemFunctor (T: Type → Type) `{Traverse T} :=
  { trfci_traverse_id: ∀ (A: Type),
      traverse (G := fun A ⇒ A) id = @id (T A);
    trfci_traverse_traverse :
    ∀ `{ApplicativeCommutativeIdempotent G1}
      `{ApplicativeCommutativeIdempotent G2}
      (A B C: Type) (g: B → G2 C) (f: A → G1 B),
      map (traverse g) ∘ traverse f = traverse (T := T) (G := G1 ∘ G2) (g ⋆2 f);
    trfci_traverse_morphism :
    ∀ `{morphism: ApplicativeMorphism G1 G2 ϕ} (A B: Type) (f: A → G1 B),
      ϕ (T B) ∘ traverse f = traverse (ϕ B ∘ f);
  }.