rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

a skipped η test

Browse source
This commit is contained in:
rhiannon morris 2023-01-08 15:44:29 +01:00
parent 28eb99c091
commit 961c8415b5
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/Tests/Equal.idr
View file

@ -139,7 +139,11 @@ tests = "equality & subtyping" :- [
(Lam "x" $ TUsed $ Lam "y" $ TUsed $ BVT 0), (Lam "x" $ TUsed $ Lam "y" $ TUsed $ BVT 0),
testEq "λ x ⇒ [a] ≡ λ x ⇒ [a] (TUsed vs TUnused)" $ testEq "λ x ⇒ [a] ≡ λ x ⇒ [a] (TUsed vs TUnused)" $
equalT (Lam "x" $ TUsed $ FT "a") 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" :- [ "term closure" :- [