michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add more tests

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-08-31 14:25:27 -07:00
parent 64788320f2
commit 03a5b5dbd0
3 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
examples/ex16.lean Normal file
View file

@ -0,0 +1,17 @@
Variable f : Pi (A : Type), A -> Bool
Show fun (A B : Type) (a : _), f B a
(* The following one should produce an error *)
(* Show fun (A : Type) (a : _) (B : Type), f B a *)
Variable myeq : Pi (A : Type u), A -> A -> Bool
Show myeq _ (fun (A : Type) (a : _), a) (fun (B : Type) (b : B), b)
Check myeq _ (fun (A : Type) (a : _), a) (fun (B : Type) (b : B), b)
Variable R : Type -> Bool
Variable h : (Pi (A : Type), R A) -> Bool
Check (fun (H : Bool)
(f1 : Pi (A : Type), R _)
(g1 : Pi (A : Type), R A)
(G : Pi (A : Type), myeq _ (f1 _) (g1 A)),
h f1)

10
examples/ex17.lean Normal file
View file

@ -0,0 +1,10 @@
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

2
src/shell/CMakeLists.txt
View file

@ -17,3 +17,5 @@ add_test(lean12 ${CMAKE_CURRENT_BINARY_DIR}/lean "${LEAN_SOURCE_DIR}/../examples
add_test(lean13 ${CMAKE_CURRENT_BINARY_DIR}/lean "${LEAN_SOURCE_DIR}/../examples/ex13.lean")
add_test(lean14 ${CMAKE_CURRENT_BINARY_DIR}/lean "${LEAN_SOURCE_DIR}/../examples/ex14.lean")
add_test(lean15 ${CMAKE_CURRENT_BINARY_DIR}/lean "${LEAN_SOURCE_DIR}/../examples/ex15.lean")
add_test(lean16 ${CMAKE_CURRENT_BINARY_DIR}/lean "${LEAN_SOURCE_DIR}/../examples/ex16.lean")
add_test(lean17 ${CMAKE_CURRENT_BINARY_DIR}/lean "${LEAN_SOURCE_DIR}/../examples/ex17.lean")