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

Slight readability improvement

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-03-21 18:05:25 +01:00
parent 181edc0cd5
commit 807a0f3dcd
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Cat/Categories/Sets.agda
View file

@ -151,9 +151,8 @@ module _ (ℓ : Level) where
g : Σ A Q → Σ A P g : Σ A Q → Σ A P
g (a , qA) = a , g' qA g (a , qA) = a , g' qA
where where
module E = Equivalence (eA a)
k : Eqv.Isomorphism _ k : Eqv.Isomorphism _
k = E.toIso (_≃_.isEqv (eA a)) k = Equiv≃.toIso _ _ (_≃_.isEqv (eA a))
open Σ k renaming (proj₁ to g') open Σ k renaming (proj₁ to g')
ve-re : (x : Σ A P) → (g ∘ f) x ≡ x ve-re : (x : Σ A P) → (g ∘ f) x ≡ x
ve-re x i = proj₁ x , eq i ve-re x i = proj₁ x , eq i
@ -166,9 +165,8 @@ module _ (ℓ : Level) where
pA ∎ pA ∎
where where
open Σ x renaming (proj₁ to a ; proj₂ to pA) open Σ x renaming (proj₁ to a ; proj₂ to pA)
module E = Equivalence (eA a)
k : Eqv.Isomorphism _ k : Eqv.Isomorphism _
k = E.toIso (_≃_.isEqv (eA a)) k = Equiv≃.toIso _ _ (_≃_.isEqv (eA a))
open Σ k renaming (proj₁ to g' ; proj₂ to inv) open Σ k renaming (proj₁ to g' ; proj₂ to inv)
module A = AreInverses inv module A = AreInverses inv
-- anti-funExt -- anti-funExt
@ -183,9 +181,8 @@ module _ (ℓ : Level) where
_≃_.eqv (eA a) (g' qA) ≡⟨ (λ i → A.recto-verso i qA) ⟩ _≃_.eqv (eA a) (g' qA) ≡⟨ (λ i → A.recto-verso i qA) ⟩
qA ∎ qA ∎
where where
module E = Equivalence (eA a)
k : Eqv.Isomorphism _ k : Eqv.Isomorphism _
k = E.toIso (_≃_.isEqv (eA a)) k = Equiv≃.toIso _ _ (_≃_.isEqv (eA a))
open Σ k renaming (proj₁ to g' ; proj₂ to inv) open Σ k renaming (proj₁ to g' ; proj₂ to inv)
module A = AreInverses inv module A = AreInverses inv
inv : AreInverses f g inv : AreInverses f g