From 13e0839831a528d26478a3a94c7470204460cce4 Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Mon, 29 Mar 2021 18:08:09 +0100
Subject: Introduce < for Languages.

Move around some definitions.
---
 src/Cfe/Expression/Base.agda | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Cfe/Expression/Base.agda')

diff --git a/src/Cfe/Expression/Base.agda b/src/Cfe/Expression/Base.agda
index dd9e9b4..1cd57a7 100644
--- a/src/Cfe/Expression/Base.agda
+++ b/src/Cfe/Expression/Base.agda
@@ -97,3 +97,8 @@ rank (e₁ ∨ e₂) = suc (rank e₁ ℕ.+ rank e₂)
 rank (e₁ ∙ _) = suc (rank e₁)
 rank (Var _) = 0
 rank (μ e) = suc (rank e)
+
+infix 4 _<ᵣₐₙₖ_
+
+_<ᵣₐₙₖ_ : ∀ {n} → Rel (Expression n) _
+_<ᵣₐₙₖ_ = ℕ._<_ on rank
-- 
cgit v1.2.3