a skipped η test

2023-01-08 15:44:29 +01:00 · 2023-01-08 15:44:29 +01:00 · 961c8415b5
parent 28eb99c091
commit 961c8415b5
1 changed files with 5 additions and 1 deletions
--- a/tests/Tests/Equal.idr
+++ b/tests/Tests/Equal.idr
@ -139,7 +139,11 @@ tests = "equality & subtyping" :- [
               (Lam "x" $ TUsed $ Lam "y" $ TUsed $ BVT 0),
      testEq "λ x ⇒ [a] ≡ λ x ⇒ [a]  (TUsed vs TUnused)" $
        equalT (Lam "x" $ TUsed   $ FT "a")
-               (Lam "x" $ TUnused $ FT "a")
+               (Lam "x" $ TUnused $ FT "a"),
+      skipWith "(no η yet)" $
+      testEq "λ x ⇒ [f [x]] ≡ [f]  (η)" $
+        equalT (Lam "x" $ TUsed $ E $ F "f" :@ BVT 0)
+               (FT "f")
    ],

    "term closure" :- [