1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-21 10:41:59 +03:00
Idris2/tests/idris2/basic016/Eta.idr
Edwin Brady a972778eab Add test script
They don't all pass yet, for minor reasons. Coming shortly...
Unfortunately the startup overhead for chez is really noticeable here!
2020-05-19 18:25:18 +01:00

15 lines
310 B
Idris

data Test : Type where
MkTest : Integer -> Integer -> Test
etaGood1 : MkTest = (\x => \y => MkTest ? ?)
etaGood1 = Refl
etaGood2: (MkTest 1) = (\x => MkTest ? x)
etaGood2 = Refl
etaGood3: (f : a -> b) -> f = (\x => f x)
etaGood3 f = Refl
etaBad : MkTest = (\x : Nat => \y => MkTest ? ?)
etaBad = Refl