check for 0=1 in typechecker

2023-02-19 17:51:44 +01:00 · 2023-02-19 17:51:44 +01:00 · 858b5db530
commit 858b5db530
parent 195791e158
5 changed files with 95 additions and 55 deletions
--- a/tests/Tests/Equal.idr
+++ b/tests/Tests/Equal.idr
@ -384,7 +384,7 @@ tests = "equality & subtyping" :- [
    testEq "a‹𝟎› = a" $
      equalED 1 empty (DCloE (F "a") (K Zero ::: id)) (F "a"),
    testEq "(f [a])‹𝟎› = f‹𝟎› [a]‹𝟎›" $
-      let th = (K Zero ::: id) in
+      let th = K Zero ::: id in
      equalED 1 empty
        (DCloE (F "f" :@ FT "a") th)
        (DCloE (F "f") th :@ DCloT (FT "a") th)