max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

test(focus): add test

Browse source
This commit is contained in:
Floris van Doorn 2017-10-30 14:31:37 -04:00 • committed by Leonardo de Moura
parent 52ee29cb48
commit 1b4d2a850a
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
tests/lean/run/focus.lean Normal file
View file

@ -0,0 +1,12 @@
open nat
example (n m : ℕ) : n + m = m + n :=
begin
induction m with m IHm,
focus { induction n with n IHn,
focus { reflexivity },
focus { exact congr_arg succ IHn }},
focus { apply eq.trans (congr_arg succ IHm),
clear IHm, induction n with n IHn,
focus { reflexivity },
focus { exact congr_arg succ IHn }}
end