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

Category.Product: get rid of the yellow

This commit is contained in:
Andrea Vezzosi 2018-04-13 14:35:10 +02:00
parent c1f58b1a4f
commit 6023a49da6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Cat/Category/Product.agda
View File

@ -189,9 +189,9 @@ module Try0 {ℓa ℓb : Level} {ℂ : Category ℓa ℓb}
-- Should follow from c being univalent
iso-id-inv : {p : X ≡ Y} → p ≡ ℂ.isoToId (ℂ.idToIso X Y p)
iso-id-inv {p} = sym (λ i → AreInverses.verso-recto ℂ.inverse-from-to-iso' i p)
iso-id-inv {p} = sym (λ i → fst (ℂ.inverse-from-to-iso' {X} {Y}) i p)
id-iso-inv : {iso : X ℂ.≅ Y} → iso ≡ ℂ.idToIso X Y (ℂ.isoToId iso)
id-iso-inv {iso} = sym (λ i → AreInverses.recto-verso ℂ.inverse-from-to-iso' i iso)
id-iso-inv {iso} = sym (λ i → snd (ℂ.inverse-from-to-iso' {X} {Y}) i iso)
lemA : {A B : Object} {f g : Arrow A B} → fst f ≡ fst g → f ≡ g
lemA {A} {B} {f = f} {g} p i = p i , h i