Skip to content

Instantly share code, notes, and snippets.

View plt-amy's full-sized avatar
🧊
Cubical thinker

Amélia Liao plt-amy

🧊
Cubical thinker
View GitHub Profile
open import 1Lab.Prelude
open import Data.Nat
open import Data.Dec
module wip.untruncate where
Homogeneous : ∀ {ℓ} → Type ℓ → Type (lsuc ℓ)
Homogeneous T = Σ T λ c → ∀ c′ → Path (Type∙ _) (T , c) (T , c′)
{-# OPTIONS -vtac:10 --cubical -vtc.unquote.elaborate:50 #-}
module Test37 where
open import Agda.Builtin.Reflection
open import Agda.Primitive.Cubical
open import Agda.Builtin.Sigma
open import Agda.Builtin.Maybe
open import Agda.Builtin.Bool
open import Agda.Builtin.List
open import Agda.Builtin.Unit