From cd8ab887cdfdf3aa8dfc66871cc27be9677945c3 Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Sat, 23 Jan 2021 20:09:11 +0000
Subject: Define expressions

---
 src/Cfe/Expression/Base.agda | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/Cfe/Expression/Base.agda

(limited to 'src/Cfe/Expression')

diff --git a/src/Cfe/Expression/Base.agda b/src/Cfe/Expression/Base.agda
new file mode 100644
index 0000000..3545f9a
--- /dev/null
+++ b/src/Cfe/Expression/Base.agda
@@ -0,0 +1,16 @@
+{-# OPTIONS --without-K --safe #-}
+
+module Cfe.Expression.Base
+  {ℓ} (A : Set ℓ)
+  where
+
+open import Data.Nat
+
+data Expression : ℕ → Set ℓ where
+  ⊥ : {n : ℕ} → Expression n
+  ε : {n : ℕ} → Expression n
+  Char : {n : ℕ} → A → Expression n
+  _∨_ : {n : ℕ} → Expression n → Expression n → Expression n
+  _∙_ : {n : ℕ} → Expression n → Expression n → Expression n
+  Var : {m : ℕ} → (n : ℕ) → Expression (suc (m + n))
+  μ : {n : ℕ} → Expression (suc n) → Expression n
-- 
cgit v1.2.3