20 lines
381 B
Agda
20 lines
381 B
Agda
-- TODO: Define arbitrary high loop spaces
|
||
|
||
-- Prelude stuff
|
||
{-# OPTIONS --cubical #-}
|
||
|
||
open import Agda.Primitive public renaming ( Set to Type )
|
||
open import Agda.Builtin.Cubical.Path public
|
||
|
||
variable
|
||
ℓ : Level
|
||
|
||
Path : ∀ {ℓ} (A : Type ℓ) → A → A → Type ℓ
|
||
Path A a b = PathP (λ _ → A) a b
|
||
|
||
-- Circle
|
||
data S¹ : Type where
|
||
base : S¹
|
||
loop : base ≡ base
|
||
|
||
|