13 lines
294 B
Agda
13 lines
294 B
Agda
¬isSetS¹ : isSet S¹ → ⊥
|
|
¬isSetS¹ = {!!}
|
|
|
|
¬isPropS¹ : isProp S¹ → ⊥
|
|
¬isPropS¹ = {!!}
|
|
|
|
-------------solutions------
|
|
¬isSetS¹ : isSet S¹ → ⊥
|
|
¬isSetS¹ h = Refl≢loop (h base base Refl loop)
|
|
|
|
¬isPropS¹ : isProp S¹ → ⊥
|
|
¬isPropS¹ h = ¬isSetS¹ (isProp→isSet h)
|