fix(builtin_cmds): metavar_args should be false by default

This commit is contained in:
Floris van Doorn 2016-06-06 12:55:12 -04:00 committed by Leonardo de Moura
parent 2cc8914874
commit e4071639f1
7 changed files with 9 additions and 7 deletions

View file

@ -118,7 +118,7 @@ environment check_cmd(parser & p) {
auto tc = mk_type_checker(p.env());
expr type = tc->check(e, ls).first;
options opts = p.ios().get_options();
opts = opts.update_if_undef(get_pp_metavar_args_name(), true);
opts = opts.update_if_undef(get_pp_metavar_args_name(), false);
io_state new_ios(p.ios(), opts);
auto out = regular(p.env(), new_ios, tc->get_type_context());
formatter fmt = out.get_formatter();

View file

@ -1,5 +1,5 @@
import logic
set_option pp.metavar_args true
check and.intro
check or.elim
check eq

View file

@ -1,3 +1,3 @@
import logic
set_option pp.metavar_args true
check eq.rec_on

View file

@ -1 +1,2 @@
set_option pp.metavar_args true
check char.rec_on

View file

@ -1,3 +1,4 @@
set_option pp.metavar_args true
namespace nat
check induction_on -- ERROR
check rec_on -- ERROR

View file

@ -1,7 +1,7 @@
protected_test.lean:2:8: error: unknown identifier 'induction_on'
protected_test.lean:3:8: error: unknown identifier 'rec_on'
protected_test.lean:3:8: error: unknown identifier 'induction_on'
protected_test.lean:4:8: error: unknown identifier 'rec_on'
nat.induction_on : ∀ n, ?C 0 → (∀ a, ?C a → ?C (succ a)) → ?C n
le.rec_on : le ?a ?a_1 → ?C ?a → (∀ {b}, le ?a b → ?C b → ?C (succ b)) → ?C ?a_1
le.rec_on : le ?a ?a_1 → ?C ?a → (∀ {b}, le ?a b → ?C b → ?C (succ b)) → ?C ?a_1
protected_test.lean:8:10: error: unknown identifier 'rec_on'
protected_test.lean:9:10: error: unknown identifier 'rec_on'
le.rec_on : le ?a ?a_1 → ?C ?a → (∀ {b}, le ?a b → ?C b → ?C (succ b)) → ?C ?a_1

View file

@ -1,4 +1,4 @@
id2 : (A → B → A) → A
id2 : (A → B → A) → A
id2 : ?B a → (A → ?B a → A) → A
id2 : ?B → (A → ?B → A) → A
id2 : ?A → (Π {B}, B → (?A → B → ?A) → ?A)