Re-add eqpair

This commit is contained in:
Frederik Hanghøj Iversen 2018-01-21 15:03:00 +01:00
parent 793fc30534
commit ea3e14af96
2 changed files with 8 additions and 8 deletions

View file

@ -10,13 +10,15 @@ open import Data.Product renaming (proj₁ to fst ; proj₂ to snd)
open import Cat.Category open import Cat.Category
open import Cat.Functor open import Cat.Functor
-- Tip from Andrea:
-- Use co-patterns - they help with showing more understandable types in goals. -- Use co-patterns - they help with showing more understandable types in goals.
lift-eq : {} {A B : Set } {a a' : A} {b b' : B} a a' b b' (a , b) (a' , b') lift-eq : {} {A B : Set } {a a' : A} {b b' : B} a a' b b' (a , b) (a' , b')
fst (lift-eq a b i) = a i fst (lift-eq a b i) = a i
snd (lift-eq a b i) = b i snd (lift-eq a b i) = b i
--lift-eq a b = λ i → a i , b i
eqpair : {a b} {A : Set a} {B : Set b} {a a' : A} {b b' : B}
a a' b b' (a , b) (a' , b')
eqpair eqa eqb i = eqa i , eqb i
open Functor open Functor
open Category open Category

View file

@ -11,12 +11,10 @@ module _ { ' : Level} ( : Category ') where
open module = Category open module = Category
Obj = .Object Obj = .Object
postulate
Path : ( a b : Obj ) Set ' Path : ( a b : Obj ) Set '
Path a b = undefined emptyPath : (o : Obj) Path o o
concatenate : {a b c : Obj} Path b c Path a b Path a c
postulate emptyPath : (o : Obj) Path o o
postulate concatenate : {a b c : Obj} Path b c Path a b Path a c
private private
module _ {A B C D : Obj} {r : Path A B} {q : Path B C} {p : Path C D} where module _ {A B C D : Obj} {r : Path A B} {q : Path B C} {p : Path C D} where