summaryrefslogtreecommitdiff
path: root/src/Cfe
diff options
context:
space:
mode:
Diffstat (limited to 'src/Cfe')
-rw-r--r--src/Cfe/Type/Construct/Lift.agda30
1 files changed, 0 insertions, 30 deletions
diff --git a/src/Cfe/Type/Construct/Lift.agda b/src/Cfe/Type/Construct/Lift.agda
deleted file mode 100644
index e26359f..0000000
--- a/src/Cfe/Type/Construct/Lift.agda
+++ /dev/null
@@ -1,30 +0,0 @@
-{-# 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 Cfe.Language over using (Language)
-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 τ
-
-⊨-liftʳ : ∀ {a fℓ₁ lℓ₁} {L : Language a} {τ : Type fℓ₁ lℓ₁} fℓ₂ lℓ₂ → L ⊨ τ → L ⊨ Lift fℓ₂ lℓ₂ τ
-⊨-liftʳ _ _ L⊨τ = record
- { n⇒n = n⇒n
- ; f⇒f = lift ∘ f⇒f
- ; l⇒l = lift ∘ l⇒l
- }
- where
- open _⊨_ L⊨τ