From fe24f02389a92563bdde4cb03f66a7db9ec51308 Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Fri, 25 Nov 2022 14:18:23 +0000
Subject: refactor: ISetoid.rel -> relation

---
 src/Soat/FirstOrder/Term.idr | 8 ++++----
 src/Soat/Relation.idr        | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Soat/FirstOrder/Term.idr b/src/Soat/FirstOrder/Term.idr
index c8da5d9..5f5e57b 100644
--- a/src/Soat/FirstOrder/Term.idr
+++ b/src/Soat/FirstOrder/Term.idr
@@ -20,7 +20,7 @@ Environment {a} x y = (t : a) -> x t -> y t
 
 record SetoidEnvironment {a : Type} (x, y : ISetoid a) where
   f    : Environment {a} x.U y.U
-  cong : (t : a) -> {u, v : x.U t} -> x.rel t u v -> y.rel t (f t u) (f t v)
+  cong : (t : a) -> {u, v : x.U t} -> x.relation t u v -> y.relation t (f t u) (f t v)
 
 public export
 bindTerm : {auto a : RawAlgebra sig}
@@ -109,7 +109,7 @@ Free : (0 V : sig.T -> Type) -> RawAlgebra sig
 Free v = MakeRawAlgebra (Term sig v) Call
 
 public export
-FreeIsAlgebra : (v : ISetoid sig.T) -> IsAlgebra sig (Free v.U) ((~=~) v.rel)
+FreeIsAlgebra : (v : ISetoid sig.T) -> IsAlgebra sig (Free v.U) ((~=~) v.relation)
 FreeIsAlgebra v = MkIsAlgebra (tmRelEq v.equivalence) Call'
 
 public export
@@ -118,12 +118,12 @@ FreeAlgebra v = MkAlgebra _ _ (FreeIsAlgebra v)
 
 public export 0
 bindTermCong : {a : Algebra sig} -> (env : SetoidEnvironment x a.setoid)
-  -> {t : sig.T} -> {tm, tm' : Term sig x.U t} -> (~=~) x.rel t tm tm'
+  -> {t : sig.T} -> {tm, tm' : Term sig x.U t} -> (~=~) x.relation t tm tm'
   -> a.rel t (bindTerm {a = a.raw} env.f tm) (bindTerm {a = a.raw} env.f tm')
 
 public export 0
 bindTermsCong : {a : Algebra sig} -> (env : SetoidEnvironment x a.setoid)
-  -> {ts : List sig.T} -> {tms, tms' : Term sig x.U ^ ts} -> Pointwise ((~=~) x.rel) tms tms'
+  -> {ts : List sig.T} -> {tms, tms' : Term sig x.U ^ ts} -> Pointwise ((~=~) x.relation) tms tms'
   -> Pointwise a.rel (bindTerms {a = a.raw} env.f tms) (bindTerms {a = a.raw} env.f tms')
 
 bindTermCong         env (Done' i)     = env.cong _ i
diff --git a/src/Soat/Relation.idr b/src/Soat/Relation.idr
index 475022d..bf5a631 100644
--- a/src/Soat/Relation.idr
+++ b/src/Soat/Relation.idr
@@ -71,5 +71,5 @@ public export
 record ISetoid (a : Type) where
   constructor MkISetoid
   0 U           : a -> Type
-  0 rel         : IRel U
-  0 equivalence : IEquivalence U rel
+  0 relation    : IRel U
+  0 equivalence : IEquivalence U relation
-- 
cgit v1.2.3