mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 13:11:30 +03:00
26 lines
402 B
Idris
26 lines
402 B
Idris
Gnu : Type
|
|
Gnu = Int
|
|
|
|
Foo : Type
|
|
Foo = Bool
|
|
|
|
A : Foo
|
|
A = True
|
|
|
|
mkFoo : Gnu -> Foo
|
|
mkFoo gnu = A
|
|
|
|
gnat : {auto startHere : (a : Foo ** a = A)} -> Unit
|
|
gnat = ()
|
|
|
|
%logging 0
|
|
pathology : (gnu : Gnu) -> Unit
|
|
pathology gnu =
|
|
let %hint foo : Foo
|
|
foo = mkFoo gnu
|
|
%hint bar : Foo -> (ford : arg = A)
|
|
-> (a : Foo ** a = A)
|
|
bar _ Refl = (A ** Refl)
|
|
in gnat
|
|
%logging 0
|