X : Compactum
x : X.A
⊢ ((Monad.η β).app X.A ≫ X.a) x = x
X : Compactum
x : X.A
⊢ str X (incl X x) = x
change ((β ).η.app _ ≫ X.a) _ = _
X : Compactum
x : X.A
⊢ 𝟙 X.A x = x
X : Compactum
x : X.A
⊢ ((Monad.η β).app X.A ≫ X.a) x = x
rw [Monad.Algebra.unit]
no goals
X : Compactum
x : X.A
⊢ 𝟙 X.A x = x
rfl