Remove yet another postulate

This commit is contained in:
Frederik Hanghøj Iversen 2018-02-23 12:33:20 +01:00
parent 34dec9406d
commit a57f45d93f

View file

@ -86,8 +86,9 @@ module _ { ' : Level} (unprovable : IsCategory (RawCat ')) where
module C = Category
module D = Category 𝔻
postulate
issSet : {A B : RawCategory.Object :rawProduct:} isSet (Arrow A B)
open import Cubical.Sigma
issSet : {A B : RawCategory.Object :rawProduct:} isSet (Arrow A B)
issSet = setSig {sA = C.arrowIsSet} {sB = λ x D.arrowIsSet}
ident' : IsIdentity :𝟙:
ident'
= Σ≡ (fst C.ident) (fst D.ident)