Formatting

This commit is contained in:
Frederik Hanghøj Iversen 2018-04-13 15:26:46 +02:00
parent 7b45b5cdc3
commit 6b7d66b7fc

View file

@ -122,8 +122,7 @@ module Try0 {a b : Level} { : Category a b}
} }
module _ where module _ where
private open RawCategory raw
open RawCategory raw
propEqs : {X' : Object}{Y' : Object} (let X , xa , xb = X') (let Y , ya , yb = Y') propEqs : {X' : Object}{Y' : Object} (let X , xa , xb = X') (let Y , ya , yb = Y')
(xy : .Arrow X Y) isProp ( [ ya xy ] xa × [ yb xy ] xb) (xy : .Arrow X Y) isProp ( [ ya xy ] xa × [ yb xy ] xb)
@ -262,13 +261,11 @@ module Try0 {a b : Level} { : Category a b}
helper : PathP (λ i pA i) xa ya helper : PathP (λ i pA i) xa ya
helper = coe-lem-inv k1 helper = coe-lem-inv k1
in iso , coe-lem-inv k1 , coe-lem-inv k0}) in iso , coe-lem-inv k1 , coe-lem-inv k0})
, record , funExt (λ x lemSig
{ fst = funExt (λ x lemSig
(λ x propSig prop0 (λ _ prop1)) (λ x propSig prop0 (λ _ prop1))
_ _ _ _
(Σ≡ refl (.propIsomorphism _ _ _))) (Σ≡ refl (.propIsomorphism _ _ _)))
; snd = funExt (λ{ (f , _) lemSig propIsomorphism _ _ (Σ≡ refl (propEqs _ _ _))}) , funExt (λ{ (f , _) lemSig propIsomorphism _ _ (Σ≡ refl (propEqs _ _ _))})
}
where where
prop0 : {x} isProp (PathP (λ i .Arrow (.isoToId x i) A) xa ya) prop0 : {x} isProp (PathP (λ i .Arrow (.isoToId x i) A) xa ya)
prop0 {x} = pathJ (λ y p x isProp (PathP (λ i .Arrow (p i) A) xa x)) (λ x .arrowsAreSets _ _) Y (.isoToId x) ya prop0 {x} = pathJ (λ y p x isProp (PathP (λ i .Arrow (p i) A) xa x)) (λ x .arrowsAreSets _ _) Y (.isoToId x) ya