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/Properties.agda | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 src/Cfe/Language/Properties.agda

(limited to 'src/Cfe/Language/Properties.agda')

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