From 701c0a2740b80bfb7f01fa426d18ef656a81f84d Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Fri, 5 Mar 2021 16:24:02 +0000
Subject: Add lifted types.

---
 src/Cfe/Type/Construct/Lift.agda | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 src/Cfe/Type/Construct/Lift.agda

(limited to 'src')

diff --git a/src/Cfe/Type/Construct/Lift.agda b/src/Cfe/Type/Construct/Lift.agda
new file mode 100644
index 0000000..9f8e439
--- /dev/null
+++ b/src/Cfe/Type/Construct/Lift.agda
@@ -0,0 +1,20 @@
+{-# OPTIONS --without-K --safe #-}
+
+open import Relation.Binary using (Setoid)
+
+module Cfe.Type.Construct.Lift
+  {c ℓ} (over : Setoid c ℓ)
+  where
+
+open import Cfe.Type over
+open import Level as L hiding (Lift)
+open import Function
+
+Lift : ∀ {fℓ₁ lℓ₁} fℓ₂ lℓ₂ → Type fℓ₁ lℓ₁ → Type (fℓ₁ ⊔ fℓ₂) (lℓ₁ ⊔ lℓ₂)
+Lift fℓ₂ lℓ₂ τ = record
+  { Null = τ.Null
+  ; First = L.Lift fℓ₂ ∘ τ.First
+  ; Flast = L.Lift lℓ₂ ∘ τ.Flast
+  }
+  where
+  module τ = Type τ
-- 
cgit v1.2.3