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

Readability

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-03-22 12:25:12 +01:00
parent d816ba657b
commit 0246c1b5ab
1 changed files with 7 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/Cat/Equivalence.agda
View file

@ -166,17 +166,13 @@ module _ {ℓa ℓb : Level} (A : Set ℓa) (B : Set ℓb) where
toIso y ≡⟨ py ⟩ toIso y ≡⟨ py ⟩
x ∎ x ∎
where where
helper : (x : Isomorphism _) → Σ _ λ y → toIso y ≡ x open Σ x renaming (fst to f~ ; snd to inv)
helper (f~ , inv) = y , py module inv = AreInverses inv
where y : isEquiv _ _ f
module inv = AreInverses inv y = {!!}
y : isEquiv _ _ f open Σ (toIso y) renaming (fst to f~' ; snd to inv')
y = {!!} py : toIso y ≡ (f~ , inv)
py : toIso y ≡ (f~ , inv) py = {!!}
py = {!!}
y : isEquiv _ _ _
y = fst (helper x)
py = snd (helper x)
module _ {ℓa ℓb : Level} {A : Set ℓa} {B : Set ℓb} where module _ {ℓa ℓb : Level} {A : Set ℓa} {B : Set ℓb} where
open Cubical.PathPrelude using (_≃_) open Cubical.PathPrelude using (_≃_)