lean2/tests/lean/tst8.lean

14 lines
215 B
Text
Raw Normal View History

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
Show f _ 10.
Show f _ (- 10).