Use TDNR in Functor

This commit is contained in:
Frederik Hanghøj Iversen 2018-01-22 11:35:37 +01:00
parent bf1d1566af
commit 9fdf6b589b
2 changed files with 7 additions and 8 deletions

View file

@ -5,6 +5,7 @@
\newcommand{\defeq}{\coloneqq}
\newcommand{\bN}{\mathbb{N}}
\newcommand{\bC}{\mathbb{C}}
\newcommand{\bX}{\mathbb{X}}
\newcommand{\to}{\rightarrow}}
\newcommand{\mto}{\mapsto}}
\newcommand{\UU}{\ensuremath{\mathcal{U}}\xspace}

View file

@ -8,9 +8,7 @@ open import Cat.Category
record Functor {c c' d d'} (C : Category c c') (D : Category d d')
: Set (c c' d d') where
private
open module C = Category C
open module D = Category D
open Category
field
func* : C .Object D .Object
func→ : {dom cod : C .Object} C .Arrow dom cod D .Arrow (func* dom) (func* cod)
@ -19,7 +17,7 @@ record Functor {c c' d d'} (C : Category c c') (D : Category
-- This guy managed to do it:
-- https://github.com/copumpkin/categories/blob/master/Categories/Functor/Core.agda
distrib : { c c' c'' : C .Object} {a : C .Arrow c c'} {a' : C .Arrow c' c''}
func→ (a' C.⊕ a) func→ a' D.⊕ func→ a
func→ (C ._⊕_ a' a) D ._⊕_ (func→ a') (func→ a)
module _ { ' : Level} {A B C : Category '} (F : Functor B C) (G : Functor A B) where
open Functor