fredefox/cat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Cosmetics

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-03-08 10:30:35 +01:00
parent 4e7b350188
commit 1ef57a19f4
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Cat/Category/Product.agda
View file

@ -40,10 +40,8 @@ module _ {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
field field
product : ∀ (A B : Object) → Product A B product : ∀ (A B : Object) → Product A B
module _ (A B : Object) where _×_ : Object → Object → Object
open Product (product A B) A × B = Product.obj (product A B)
_×_ : Object
_×_ = obj
-- | Parallel product of arrows -- | Parallel product of arrows
-- --
@ -53,9 +51,9 @@ module _ {ℓa ℓb : Level} (ℂ : Category ℓa ℓb) where
open Product open Product
open Product (product A B) hiding (_P[_×_]) renaming (proj₁ to fst ; proj₂ to snd) open Product (product A B) hiding (_P[_×_]) renaming (proj₁ to fst ; proj₂ to snd)
_|×|_ : ℂ [ A , A' ] → ℂ [ B , B' ] → ℂ [ A × B , A' × B' ] _|×|_ : ℂ [ A , A' ] → ℂ [ B , B' ] → ℂ [ A × B , A' × B' ]
a |×| b = product A' B' f |×| g = product A' B'
P[ ℂ [ a ∘ fst ] P[ ℂ [ f ∘ fst ]
× ℂ [ b ∘ snd ] × ℂ [ g ∘ snd ]
] ]
module Propositionality where module Propositionality where