2014-01-01 21:52:25 +00:00
|
|
|
Import Int
|
2013-08-31 21:25:27 +00:00
|
|
|
Check fun (A : Type) (a : A),
|
|
|
|
|
let b := a
|
|
|
|
|
in b
|
|
|
|
|
|
|
|
|
|
Variable g : Pi A : Type, A -> A
|
|
|
|
|
|
|
|
|
|
Definition f (A: Type) (a : A) : A :=
|
|
|
|
|
let b := g A a,
|
|
|
|
|
c := g A b
|
|
|
|
|
in c
|
2013-09-03 21:51:34 +00:00
|
|
|
|
|
|
|
|
Show f _ 10.
|
|
|
|
|
Show f _ (- 10).
|
