lean2/tests/lean/tst8.lean

11 lines
184 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