1
1
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-21 11:51:31 +03:00
Idris2-boot/tests/idris2/interface015/gnu.idr
Edwin Brady cd972143a5 Also check unique locals inside pairs
The error message doesn't propagate nicely here yet, but it should still
report failure to resolve the search
2020-02-23 17:44:18 +00:00

54 lines
1.1 KiB
Idris

data Gnu : Type where [noHints, uniqueSearch]
||| Use Bool stop proof search from using constructors
G : Bool -> Gnu
N : Bool -> Gnu
U : Bool -> Gnu
||| Makes interaction a bit nicer
Show Gnu where
show (G _) = "G"
show (N _) = "N"
show (U _) = "U"
FooG : Gnu
FooG = G True
FooN : Gnu
FooN = N True
FooU : Gnu
FooU = U True
||| Curried versions
CooG : Unit -> Gnu
CooG _ = FooG
CooN : Unit -> Gnu
CooN _ = FooN
CooU : Unit -> Gnu
CooU _ = FooU
||| We'll use this to see what proof Idris finds.
Guess : {auto gnu : Gnu} -> String
Guess {gnu} = show gnu
||| Calls `Guess {gnu = gnu}` as expected
TestOK1 : (gnu : Gnu) -> String
TestOK1 gnu = Guess
||| Calls `Guess {gnu = f ()}` as expected
TestOK2 : (f : Unit -> Gnu) -> String
TestOK2 f = Guess
||| This is the meat. I'd expect this function to raise an error
||| because it is ambiguous which local/local function to use.
TestSurprise1 : (gnu1, gnu2 : Gnu) -> String
TestSurprise1 gnu1 gnu2 = Guess
TestSurprise2 : (f,g : Unit -> Gnu) -> String
TestSurprise2 f g = Guess
TestSurprise3 : (Unit -> Gnu, Unit -> Gnu) -> String
TestSurprise3 f = Guess