From 8ff37b98737f4af5bd11d3006ae1b26902a1a82f Mon Sep 17 00:00:00 2001 From: Greg Brown 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 +- src/Soat/SecondOrder/Algebra.idr | 2 +- src/Soat/SecondOrder/Signature.idr | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) (limited to 'src') 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 diff --git a/src/Soat/SecondOrder/Algebra.idr b/src/Soat/SecondOrder/Algebra.idr index c506c85..50877e9 100644 --- a/src/Soat/SecondOrder/Algebra.idr +++ b/src/Soat/SecondOrder/Algebra.idr @@ -17,7 +17,7 @@ extendRel : {U : a -> List a -> Type} -> (rel : IRel (uncurry U)) -> (ctx : List a) -> IRel (extend U ctx) extendRel rel ctx ty = rel (snd ty, fst ty ++ ctx) -public export +public export 0 algebraOver : (sig : Signature) -> (U : sig.T -> List sig.T -> Type) -> Type algebraOver sig x = (ctx : List sig.T) -> {t : sig.T} -> (op : Op sig t) -> extend x ctx ^ op.arity -> x t ctx diff --git a/src/Soat/SecondOrder/Signature.idr b/src/Soat/SecondOrder/Signature.idr index d3e9f05..4101c87 100644 --- a/src/Soat/SecondOrder/Signature.idr +++ b/src/Soat/SecondOrder/Signature.idr @@ -5,7 +5,7 @@ module Soat.SecondOrder.Signature public export record Signature where constructor MkSignature - T : Type + 0 T : Type 0 O : T -> List (Pair (List T) T) -> Type public export -- cgit v1.2.3