2019-07-20 20:04:18 +03:00
|
|
|
import Data.Fin
|
|
|
|
|
|
|
|
foo : Fin 10
|
|
|
|
foo = 5
|
2019-10-26 00:24:25 +03:00
|
|
|
|
2019-07-20 20:04:18 +03:00
|
|
|
0 test : Fin k -> Nat
|
|
|
|
test i = k
|
2019-10-26 00:24:25 +03:00
|
|
|
|
2019-07-20 20:04:18 +03:00
|
|
|
0 baz : Nat
|
|
|
|
baz = test foo -- fine!
|
|
|
|
|
|
|
|
bar : Nat
|
|
|
|
bar = test foo -- bad!
|
|
|
|
|