21 lines
381 B
Agda
21 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
|
|||
|
|
|
|||
|
|
|