diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2022-11-25 14:18:23 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2022-11-25 14:18:23 +0000 |
| commit | fe24f02389a92563bdde4cb03f66a7db9ec51308 (patch) | |
| tree | 6081cce0b3b8e7b109e725b16c16a70771be2233 /src/Soat | |
| parent | 00fcc3517b7f680d31028abe83664a96305101b6 (diff) | |
refactor: ISetoid.rel -> relation
Diffstat (limited to 'src/Soat')
| -rw-r--r-- | src/Soat/FirstOrder/Term.idr | 8 | ||||
| -rw-r--r-- | src/Soat/Relation.idr | 4 |
2 files changed, 6 insertions, 6 deletions
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 |