diff options
| author | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-11-13 13:24:21 -0600 |
|---|---|---|
| committer | Jacques Comeaux <jacquesrcomeaux@protonmail.com> | 2025-11-13 13:24:21 -0600 |
| commit | 05cbf6f56bce1d45876630fe29b694dc57942e9c (patch) | |
| tree | f2d888b155c44487cc1b8b9b590c6cf207578c4e /Functor/Instance/List.agda | |
| parent | ed5f0ae0f95a1675b272b205bb58724368031c01 (diff) | |
Add adjunction between free monoid and forget
Diffstat (limited to 'Functor/Instance/List.agda')
| -rw-r--r-- | Functor/Instance/List.agda | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Functor/Instance/List.agda b/Functor/Instance/List.agda index ceb73e1..a280218 100644 --- a/Functor/Instance/List.agda +++ b/Functor/Instance/List.agda @@ -18,7 +18,7 @@ open Functor open Setoid using (reflexive) open Func -open import Data.Opaque.List as List hiding (List) +open import Data.Opaque.List as L hiding (List) private variable @@ -29,7 +29,7 @@ open import Function.Construct.Setoid using (_∙_) opaque - unfolding List.List + unfolding L.List map-id : (xs : ∣ Listₛ A ∣) @@ -58,8 +58,10 @@ opaque -- which applies the same function to every element of a list List : Functor (Setoids c ℓ) (Setoids c (c ⊔ ℓ)) -List .F₀ = List.Listₛ -List .F₁ = List.mapₛ +List .F₀ = Listₛ +List .F₁ = mapₛ List .identity {_} {xs} = map-id xs List .homomorphism {f = f} {g} {xs} = List-homo f g xs List .F-resp-≈ {f = f} {g} f≈g = List-resp-≈ f g f≈g + +module List = Functor List |