From cb4066ccef16ae70cdfdd03b7b7df3c07223ac4d Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Sat, 23 Jan 2021 21:35:30 +0000
Subject: Add basic properties of ≤
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Cfe/Language/Base.agda       |  2 +-
 src/Cfe/Language/Properties.agda | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 src/Cfe/Language/Properties.agda

(limited to 'src/Cfe/Language')

diff --git a/src/Cfe/Language/Base.agda b/src/Cfe/Language/Base.agda
index eeea11d..2e77b11 100644
--- a/src/Cfe/Language/Base.agda
+++ b/src/Cfe/Language/Base.agda
@@ -46,4 +46,4 @@ fix : (Language → Language) → Language
 fix f l = ∃[ n ] iterate f n ∅ l
 
 _≤_ : Language → Language → Set (a ⊔ ℓ)
-A ≤ B = ∀ l → A l → B l
+A ≤ B = ∀ {l} → A l → B l
diff --git a/src/Cfe/Language/Properties.agda b/src/Cfe/Language/Properties.agda
new file mode 100644
index 0000000..8d024a8
--- /dev/null
+++ b/src/Cfe/Language/Properties.agda
@@ -0,0 +1,21 @@
+{-# OPTIONS --without-K --safe #-}
+
+open import Relation.Binary
+
+module Cfe.Language.Properties
+  {a ℓ} (setoid : Setoid a ℓ)
+  where
+
+open Setoid setoid renaming (Carrier to A)
+
+open import Cfe.Language setoid
+open import Function
+
+------------------------------------------------------------------------
+-- Properties of _≤_
+
+≤-refl : Reflexive _≤_
+≤-refl = id
+
+≤-trans : Transitive _≤_
+≤-trans A≤B B≤C = B≤C ∘ A≤B
-- 
cgit v1.2.3