Cosmetics

This commit is contained in:
Frederik Hanghøj Iversen 2018-03-08 10:30:35 +01:00
parent 4e7b350188
commit 1ef57a19f4

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