From 8ff37b98737f4af5bd11d3006ae1b26902a1a82f Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Mon, 5 Dec 2022 14:41:02 +0000
Subject: refactor : make Signature.T irrelevant.

---
 src/Soat/FirstOrder/Algebra.idr   | 4 ++--
 src/Soat/FirstOrder/Signature.idr | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Soat/FirstOrder')

diff --git a/src/Soat/FirstOrder/Algebra.idr b/src/Soat/FirstOrder/Algebra.idr
index 245af6d..b8cbc0c 100644
--- a/src/Soat/FirstOrder/Algebra.idr
+++ b/src/Soat/FirstOrder/Algebra.idr
@@ -8,11 +8,11 @@ import Soat.FirstOrder.Signature
 %default total
 %hide Control.Relation.Equivalence
 
-public export
+public export 0
 algebraOver : (sig : Signature) -> (U : sig.T -> Type) -> Type
 algebraOver sig x = {t : sig.T} -> (op : Op sig t) -> x ^ op.arity -> x t
 
-public export
+public export 0
 algebraOver' : (sig : Signature) -> (U : sig.T -> Type) -> Type
 algebraOver' sig x = {t : sig.T} -> (op : Op sig t) -> map x op.arity `ary` x t
 
diff --git a/src/Soat/FirstOrder/Signature.idr b/src/Soat/FirstOrder/Signature.idr
index 01cfb2b..2727629 100644
--- a/src/Soat/FirstOrder/Signature.idr
+++ b/src/Soat/FirstOrder/Signature.idr
@@ -5,7 +5,7 @@ module Soat.FirstOrder.Signature
 public export
 record Signature where
   constructor MkSignature
-  T : Type
+  0 T : Type
   0 O : T -> List T -> Type
 
 public export
-- 
cgit v1.2.3