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

test(tests/lean/run): add match test

Browse source
This commit is contained in:
Leonardo de Moura 2015-01-10 10:43:24 -08:00
parent 5796640392
commit d6eccd7c18
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
tests/lean/run/match4.lean Normal file
View file

@ -0,0 +1,23 @@
open nat bool inhabited prod
definition diag (a b c : bool) : nat :=
match (a, b, c) with
(_, tt, ff) := 1,
(ff, _, tt) := 2,
(tt, ff, _) := 3,
(_, _, _) := arbitrary nat
theorem diag1 (a : bool) : diag a tt ff = 1 :=
bool.cases_on a rfl rfl
theorem diag2 (a : bool) : diag ff a tt = 2 :=
bool.cases_on a rfl rfl
theorem diag3 (a : bool) : diag tt ff a = 3 :=
bool.cases_on a rfl rfl
theorem diag4_1 : diag ff ff ff = arbitrary nat :=
rfl
theorem diag4_2 : diag tt tt tt = arbitrary nat :=
rfl