summaryrefslogtreecommitdiff
path: root/src/Cfe/Language/Indexed/Homogeneous.agda
diff options
context:
space:
mode:
Diffstat (limited to 'src/Cfe/Language/Indexed/Homogeneous.agda')
-rw-r--r--src/Cfe/Language/Indexed/Homogeneous.agda30
1 files changed, 0 insertions, 30 deletions
diff --git a/src/Cfe/Language/Indexed/Homogeneous.agda b/src/Cfe/Language/Indexed/Homogeneous.agda
deleted file mode 100644
index 44e3b6c..0000000
--- a/src/Cfe/Language/Indexed/Homogeneous.agda
+++ /dev/null
@@ -1,30 +0,0 @@
-{-# OPTIONS --without-K --safe #-}
-
-open import Relation.Binary as B using (Setoid)
-
-module Cfe.Language.Indexed.Homogeneous
- {c ℓ} (over : Setoid c ℓ)
- where
-
-open import Cfe.Language over
-open import Level
-open import Data.List
-open import Data.Product
-open import Relation.Binary.Indexed.Heterogeneous
-
-open _≈_
-
-open Setoid over using () renaming (Carrier to C)
-
-record IndexedLanguage i iℓ a : Set (ℓ ⊔ suc (c ⊔ i ⊔ iℓ ⊔ a)) where
- field
- Carrierᵢ : Set i
- _≈ᵢ_ : B.Rel Carrierᵢ iℓ
- isEquivalenceᵢ : B.IsEquivalence _≈ᵢ_
- F : Carrierᵢ → Language a
- cong : F B.Preserves _≈ᵢ_ ⟶ _≈_
-
- open B.IsEquivalence isEquivalenceᵢ using () renaming (refl to reflᵢ; sym to symᵢ; trans to transᵢ) public
-
- Tagged : List C → Set (i ⊔ a)
- Tagged l = ∃[ i ] l ∈ F i