diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2021-04-05 14:31:57 +0100 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2021-04-05 14:31:57 +0100 |
| commit | da429008d25ac87ec67a4fb18a5cbee0ba756bcf (patch) | |
| tree | 9ee94c5a3231f28146b22b9fb1bad15c6e411bfe /src/Cfe/Language/Construct/Single.agda | |
| parent | 13e0839831a528d26478a3a94c7470204460cce4 (diff) | |
Clean-up Language hierarchy.
Diffstat (limited to 'src/Cfe/Language/Construct/Single.agda')
| -rw-r--r-- | src/Cfe/Language/Construct/Single.agda | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/Cfe/Language/Construct/Single.agda b/src/Cfe/Language/Construct/Single.agda deleted file mode 100644 index ddea1a6..0000000 --- a/src/Cfe/Language/Construct/Single.agda +++ /dev/null @@ -1,27 +0,0 @@ -{-# OPTIONS --without-K --safe #-} - -open import Function -open import Relation.Binary -import Relation.Binary.PropositionalEquality as ≡ - -module Cfe.Language.Construct.Single - {c ℓ} (over : Setoid c ℓ) - where - -open Setoid over renaming (Carrier to C) - -open import Cfe.Language over hiding (_≈_) -open import Data.List -open import Data.List.Relation.Binary.Equality.Setoid over -open import Data.Product as Product -open import Data.Unit -open import Level - -｛_｝ : C → Language (c ⊔ ℓ) -｛ c ｝ = record - { 𝕃 = [ c ] ≋_ - ; ∈-resp-≋ = λ l₁≋l₂ l₁∈｛c｝ → ≋-trans l₁∈｛c｝ l₁≋l₂ - } - -xy∉｛c｝ : ∀ c x y l → x ∷ y ∷ l ∉ ｛ c ｝ -xy∉｛c｝ c x y l (_ ∷ ()) |