---

Step * of Lemma monad-op_wf

∀[C:SmallCategory]. ∀[M:Monad(C)]. ∀[x:cat-ob(C)].  (monad-op(M;x) ∈ cat-arrow(C) M(M(x)) M(x))
BY
{ (ProveWfLemma
   THEN D 2
   THEN DProds
   THEN D 3
   THEN RepUR ``monad-fun monad-functor`` 0
   THEN All (RepUR  ``id_functor``)
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[C:SmallCategory].  \mforall{}[M:Monad(C)].  \mforall{}[x:cat-ob(C)].    (monad-op(M;x)  \mmember{}  cat-arrow(C)  M(M(x))  M(x))


By

---

Latex:
(ProveWfLemma
  THEN  D  2
  THEN  DProds
  THEN  D  3
  THEN  RepUR  ``monad-fun  monad-functor``  0
  THEN  All  (RepUR    ``id\_functor``)
  THEN  Auto)

---

Home Index