From d5f8497dbb6de72d9664f48d6acbc9772de77be3 Mon Sep 17 00:00:00 2001
From: Chloe Brown <chloe.brown.00@outlook.com>
Date: Thu, 1 Jun 2023 17:07:41 +0100
Subject: Give a logical relation template.

---
 src/Total/NormalForm.idr | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Total/NormalForm.idr')

diff --git a/src/Total/NormalForm.idr b/src/Total/NormalForm.idr
index 7421ca9..93a1da7 100644
--- a/src/Total/NormalForm.idr
+++ b/src/Total/NormalForm.idr
@@ -3,6 +3,8 @@ module Total.NormalForm
 import Total.Reduction
 import Total.Term
 
+%prefix_record_projections off
+
 public export
 data Neutral : Term ctx ty -> Type
 public export
@@ -22,6 +24,7 @@ data Normal where
 %name Neutral n, m, k
 %name Normal n, m, k
 
+public export
 record NormalForm (0 t : Term ctx ty) where
   constructor MkNf
   term : Term ctx ty
-- 
cgit v1.2.3