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

feat(shell): start 'lean --server' with 'pp.beta = true'

Browse source
This commit is contained in:
Leonardo de Moura 2014-09-09 14:13:35 -07:00
parent 2d94584816
commit abdd784729
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/shell/lean.cpp
View file

@ -333,6 +333,7 @@ int main(int argc, char ** argv) {
} }
if (ok && server && default_k == input_kind::Lean) { if (ok && server && default_k == input_kind::Lean) {
signal(SIGINT, on_ctrl_c); signal(SIGINT, on_ctrl_c);
ios.set_option(lean::name("pp", "beta"), true);
lean::server Sv(env, ios, num_threads); lean::server Sv(env, ios, num_threads);
if (!Sv(std::cin)) if (!Sv(std::cin))
ok = false; ok = false;

10
tests/lean/run/ppbeta.lean Normal file
View file

@ -0,0 +1,10 @@
import data.int
open [coercions] int
open [coercions] nat
definition lt (a b : int) := int.le (int.add a 1) b
infix `<` := lt
infixl `+`:65 := int.add
theorem lt_add_succ2 (a : int) (n : nat) : a < a + nat.succ n :=
int.le_intro (show a + 1 + n = a + nat.succ n, from sorry)