open import 1Lab.Prelude

open import Algebra.Semigroup

module Algebra.Monoid where


A monoid is a semigroup equipped with a two-sided identity element: An element e∈Me \in M such that e⋆x=x=x⋆ee \star x = x = x \star e. For any particular choice of binary operator ⋆\star, if a two-sided identity exists, then it is unique; In this sense, β€œbeing a monoid” could be considered an β€œaxiom” that semigroups may satisfy.

However, since semigroup homomorphisms do not automatically preserve the identity element1, it is part of the type signature for is-monoid, being considered structure that a semigroup may be equipped with.

record is-monoid (id : A) (_⋆_ : A β†’ A β†’ A) : Type (level-of A) where
    has-is-semigroup : is-semigroup _⋆_

  open is-semigroup has-is-semigroup public

    idl : {x : A} β†’ id ⋆ x ≑ x
    idr : {x : A} β†’ x ⋆ id ≑ x

open is-monoid public

The condition of (A,0,⋆)(A, 0, \star) defining a monoid is a proposition, so that we may safely decompose monoids as the structure (0,⋆)(0, \star), which has to satisfy the property of being a monoid.

private unquoteDecl eqv = declare-record-iso eqv (quote is-monoid)

  H-Level-is-monoid : βˆ€ {id : A} {_⋆_ : A β†’ A β†’ A} {n}
                    β†’ H-Level (is-monoid id _⋆_) (suc n)
  H-Level-is-monoid = prop-instance Ξ» x β†’
    let open is-monoid x in is-hlevel≃ 1 (Isoβ†’Equiv eqv e⁻¹) (hlevel 1) x

A monoid structure on a type is given by the choice of identity element, the choice of binary operation, and the witness that these choices form a monoid. A Monoid, then, is a type with a monoid structure.

record Monoid-on (A : Type β„“) : Type β„“ where
    identity : A
    _⋆_ : A β†’ A β†’ A

    has-is-monoid : is-monoid identity _⋆_

  open is-monoid has-is-monoid public

Monoid : (β„“ : Level) β†’ Type (lsuc β„“)
Monoid β„“ = Ξ£ (Monoid-on {β„“ = β„“})

open Monoid-on

There is also a predicate which witnesses when an equivalence between monoids is a monoid homomorphism. It has to preserve the identity, and commute with the multiplication:

  Monoid-hom (A B : Ξ£ (Monoid-on {β„“ = β„“})) (e : A .fst β†’ B .fst) : Type β„“ where
    module A = Monoid-on (A .snd)
    module B = Monoid-on (B .snd)

    pres-id : e A.identity ≑ B.identity
    pres-⋆ : (x y : A .fst) β†’ e (x A.⋆ y) ≑ e x B.⋆ e y

open Monoid-hom

Monoid≃ : (A B : Ξ£ (Monoid-on {β„“ = β„“})) (e : A .fst ≃ B .fst) β†’ Type _
Monoid≃ A B (e , _) = Monoid-hom A B e

We automatically derive a proof that Monoid-on is univalent for the structure induced by Monoid≃:

Monoid-univalent : is-univalent {β„“ = β„“} (HomTβ†’Str Monoid≃)
Monoid-univalent {β„“ = β„“} =
  Derive-univalent-record (record-desc
    (Monoid-on {β„“ = β„“}) Monoid≃
      field[ identity    by pres-id ]
      field[ _⋆_         by pres-⋆ ]
      axiom[ has-is-monoid by (Ξ» _ β†’ hlevel 1) ]))

From this, we automatically get a specialisation of the SIP for Monoids, which says that identification of monoids is monoid isomorphism.

Monoid≑ : {A B : Monoid β„“} β†’ (A ≃[ HomTβ†’Str Monoid≃ ] B) ≃ (A ≑ B)
Monoid≑ = SIP Monoid-univalent

Relationships to Unital MagmasπŸ”—

open import Algebra.Magma.Unital

By definition, every monoid is exactly a unital magma that is also a semigroup. However, adopting this as a definition yields several issues especially when it comes to metaprogramming, which is why this is instead expressed by explicitly proving the implications between the properties.

First, we show that every monoid is a unital magma:

module _ {id : A} {_⋆_ : A β†’ A β†’ A} where
  is-monoidβ†’is-unital-magma : is-monoid id _⋆_ β†’ is-unital-magma id _⋆_
  is-monoid→is-unital-magma mon .has-is-magma = mon .has-is-semigroup .has-is-magma
  is-monoid→is-unital-magma mon .idl = mon .idl
  is-monoid→is-unital-magma mon .idr = mon .idr

β€œReshuffling” the record fields also allows us to show the reverse direction, namely, that every unital semigroup is a monoid.

    : is-unital-magma id _⋆_ β†’ is-semigroup _⋆_ β†’ is-monoid id _⋆_
  is-unital-magma→is-semigroup→is-monoid uni sem .has-is-semigroup = sem
  is-unital-magma→is-semigroup→is-monoid uni sem .idl = uni .idl
  is-unital-magma→is-semigroup→is-monoid uni sem .idr = uni .idr


A useful application of the monoid laws is in showing that having an inverse is a proprety of a specific element, not structure on that element. To make this precise: Let ee be an element of a monoid, say (M,1,⋆)(M, 1, \star); If there are xx and yy such that x⋆e=1x \star e = 1 and e⋆y=1e \star y = 1, then x=yx = y.

  : βˆ€ {1M : A} {_⋆_ : A β†’ A β†’ A}
  β†’ (m : is-monoid 1M _⋆_)
  β†’ (e x y : A)
  β†’ (x ⋆ e ≑ 1M) β†’ (e ⋆ y ≑ 1M)
  β†’ x ≑ y

This is a happy theorem where stating the assumptions takes as many lines as the proof, which is a rather boring calculation. Since 11 is an identity for ⋆\star, we can freely multiply by 11 to β€œsneak in” a yy:

monoid-inverse-unique {1M = 1M} {_⋆_} m e x y li1 ri2 =
  x             β‰‘βŸ¨ sym (m .idr) βŸ©β‰‘
  x ⋆ 1M        β‰‘βŸ¨ apβ‚‚ _⋆_ refl (sym ri2) βŸ©β‰‘
  x ⋆ (e ⋆ y)   β‰‘βŸ¨ m .associative βŸ©β‰‘
  (x ⋆ e) ⋆ y   β‰‘βŸ¨ apβ‚‚ _⋆_ li1 refl βŸ©β‰‘
  1M ⋆ y        β‰‘βŸ¨ m .idl βŸ©β‰‘
  y             ∎

  1. Counterexample: The map f:(Z,βˆ—)β†’(Z,βˆ—)f : (\bb{Z}, *) \to (\bb{Z}, *) which sends everything to zero is a semigroup homomorphism, but does not preserve the unit of (Z,βˆ—)(\bb{Z}, *).β†©οΈŽ