From da35892c463cd6b9a492c6aee09726a41031ca93 Mon Sep 17 00:00:00 2001 From: Chloe Brown Date: Mon, 29 Mar 2021 15:56:46 +0100 Subject: Rename parse to derivation. --- src/Cfe/Derivation/Base.agda | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 src/Cfe/Derivation/Base.agda (limited to 'src/Cfe/Derivation/Base.agda') diff --git a/src/Cfe/Derivation/Base.agda b/src/Cfe/Derivation/Base.agda new file mode 100644 index 0000000..1f2bb63 --- /dev/null +++ b/src/Cfe/Derivation/Base.agda @@ -0,0 +1,25 @@ +{-# OPTIONS --without-K --safe #-} + +open import Relation.Binary using (Setoid) + +module Cfe.Derivation.Base + {c ℓ} (over : Setoid c ℓ) + where + +open Setoid over renaming (Carrier to C; _≈_ to _∼_) + +open import Cfe.Expression over hiding (_≋_) +open import Data.Fin +open import Data.List +open import Data.List.Relation.Binary.Equality.Setoid over +open import Level using (_⊔_) + +infix 4 _⤇_ + +data _⤇_ : Expression 0 → List C → Set (c ⊔ ℓ) where + Eps : ε ⤇ [] + Char : ∀ {c y} → c ∼ y → Char c ⤇ [ y ] + Cat : ∀ {e₁ e₂ l₁ l₂ l} → e₁ ⤇ l₁ → e₂ ⤇ l₂ → l₁ ++ l₂ ≋ l → e₁ ∙ e₂ ⤇ l + Veeˡ : ∀ {e₁ e₂ l} → e₁ ⤇ l → e₁ ∨ e₂ ⤇ l + Veeʳ : ∀ {e₁ e₂ l} → e₂ ⤇ l → e₁ ∨ e₂ ⤇ l + Fix : ∀ {e l} → e [ μ e / zero ] ⤇ l → μ e ⤇ l -- cgit v1.2.3