diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2023-07-07 17:40:03 +0100 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2023-07-07 17:40:03 +0100 |
| commit | d42c29c3ded0e48021b24295c925b88232df6b75 (patch) | |
| tree | ca4a7551e46c4e813cff464ea6acbd74b90d9c99 /src/Data/Term/Zipper.idr | |
| parent | 6b637a6d2954e77985e24bbd17f3697eb6f8238a (diff) | |
Add occurs check for terms.
Diffstat (limited to 'src/Data/Term/Zipper.idr')
| -rw-r--r-- | src/Data/Term/Zipper.idr | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Data/Term/Zipper.idr b/src/Data/Term/Zipper.idr index 09ba2c9..3f6668a 100644 --- a/src/Data/Term/Zipper.idr +++ b/src/Data/Term/Zipper.idr @@ -41,7 +41,8 @@ assoc (Op op i ts zip1) zip2 zip3 = cong (Op op i ts) (assoc zip1 zip2 zip3) -- Action ---------------------------------------------------------------------- -export +-- NOTE: should this be public? +public export (+) : Zipper sig n -> Term sig n -> Term sig n Top + t = t Op op i ts zip + t = Op op (insertAt i (zip + t) ts) |