возьмем категорию, где объекты - натуральные числа, а морфизм a -> b есть только когда a >= b
возьмем в нем бифунктор max, который внезапно окажется произведением, с единицей как 0, так как он отображает на наименьший объект, из которого есть оба морфизма в составные части
b <- max(a, b) -> a
max(0, a) -> a = max(a, 0) -> a = id_a
итак, получили моноидальную категорию
в качестве эндофунктора возьмем succ : a -> a + 1, естественность сохраняется
вроде бы и монадой является вполне
нужно построить морфизм
max(a, succ(b)) -> succ(max(a, b))
и такого морфизма нет, например
max(5, 1+1) -> max(5,1) + 1
5 -> 6