test(tests/lean/run): add nested let-expr test
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
c13c75b93e
commit
92bb046854
1 changed files with 10 additions and 0 deletions
10
tests/lean/run/let1.lean
Normal file
10
tests/lean/run/let1.lean
Normal file
|
@ -0,0 +1,10 @@
|
|||
import standard
|
||||
|
||||
check
|
||||
let f x y := x ∧ y,
|
||||
g x := f x x,
|
||||
a := g true
|
||||
in λ (x : a),
|
||||
let h x y := f x (g y),
|
||||
b := h
|
||||
in b
|
Loading…
Reference in a new issue