15 lines
170 B
Agda
15 lines
170 B
Agda
module Quantity
|
|
|
|
import Prelude
|
|
|
|
|
|
foo : Nat → Nat
|
|
foo x = x
|
|
|
|
-- This should fail to compile
|
|
bar : ∀ x. Nat
|
|
bar {x} = foo x
|
|
|
|
main : IO Unit
|
|
main = printLn $ bar {S Z}
|