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

Provide grpdSig

Browse source
This commit is contained in:
Frederik Hanghøj Iversen 2018-05-22 16:31:26 +02:00
parent cb0117819b
commit 9848fac672
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Cat/Prelude.agda
View file

@ -33,7 +33,7 @@ open import Cubical.NType.Properties
propIsContr : {ℓ : Level} → {A : Set ℓ} → isProp (isContr A) propIsContr : {ℓ : Level} → {A : Set ℓ} → isProp (isContr A)
propIsContr = propHasLevel ⟨-2⟩ propIsContr = propHasLevel ⟨-2⟩
open import Cubical.Sigma using (setSig ; sigPresSet ; sigPresNType ; grpdSig) public open import Cubical.Sigma using (setSig ; sigPresSet ; sigPresNType) public
module _ (ℓ : Level) where module _ (ℓ : Level) where
-- FIXME Ask if we can push upstream. -- FIXME Ask if we can push upstream.
@ -135,3 +135,8 @@ module _ {ℓ : Level} {A : Set ℓ} where
propGrpd = ntypeCumulative propGrpd = ntypeCumulative
{suc zero} {suc (suc (suc zero))} {suc zero} {suc (suc (suc zero))}
(≤′-step (≤′-step ≤′-refl)) (≤′-step (≤′-step ≤′-refl))
module _ {ℓa ℓb : Level} {A : Set ℓa} {B : A → Set ℓb} where
open TLevel
grpdSig : isGrpd A → (∀ a → isGrpd (B a)) → isGrpd (Σ A B)
grpdSig = sigPresNType {n = S (S (S ⟨-2⟩))}