2018-02-16 11:03:02 +00:00
|
|
|
|
module Cat.Wishlist where
|
|
|
|
|
|
2018-02-19 10:25:16 +00:00
|
|
|
|
open import Level
|
2018-02-16 11:03:02 +00:00
|
|
|
|
open import Cubical.NType
|
|
|
|
|
open import Data.Nat using (_≤_ ; z≤n ; s≤s)
|
|
|
|
|
|
2018-03-12 12:36:55 +00:00
|
|
|
|
open import Cubical.NType.Properties public using (propHasLevel)
|
|
|
|
|
|
2018-02-16 11:03:02 +00:00
|
|
|
|
postulate ntypeCommulative : ∀ {ℓ n m} {A : Set ℓ} → n ≤ m → HasLevel ⟨ n ⟩₋₂ A → HasLevel ⟨ m ⟩₋₂ A
|
2018-02-19 10:25:16 +00:00
|
|
|
|
|
2018-02-19 14:46:19 +00:00
|
|
|
|
module _ {ℓ : Level} {A : Set ℓ} where
|
|
|
|
|
isSetIsProp : isProp (isSet A)
|
|
|
|
|
isSetIsProp = propHasLevel (S (S ⟨-2⟩))
|
2018-03-12 12:36:55 +00:00
|
|
|
|
|
|
|
|
|
propIsProp : isProp (isProp A)
|
|
|
|
|
propIsProp = propHasLevel (S ⟨-2⟩)
|