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

fix(frontends/lean/elaborator): visit_prenum was creating unnecessary universe metavariable

Browse source 
This was creating problems for the new type class resolution procedure
since visit_prenum was also not creating any constraint that enforced
the universe level of A to be equal to the superfluous universe level.
This commit is contained in:
Leonardo de Moura 2015-10-18 17:25:22 -07:00
parent 65d7c05737
commit b71a68c606
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/frontends/lean/elaborator.cpp
View file

@ -1584,7 +1584,6 @@ expr elaborator::visit_prenum(expr const & e, constraint_seq & cs) {
lean_assert(is_prenum(e)); lean_assert(is_prenum(e));
mpz const & v = prenum_value(e); mpz const & v = prenum_value(e);
tag e_tag = e.get_tag(); tag e_tag = e.get_tag();
levels ls = levels(mk_meta_univ(m_ngen.next()));
// Remark: In HoTT mode, we only partially support the new encoding for numerals. // Remark: In HoTT mode, we only partially support the new encoding for numerals.
// We fix A to num, and we rely on coercions to cast them to other types. // We fix A to num, and we rely on coercions to cast them to other types.
// This is quite different from the approach used in the standard library // This is quite different from the approach used in the standard library
@ -1593,6 +1592,8 @@ expr elaborator::visit_prenum(expr const & e, constraint_seq & cs) {
A = m_full_context.mk_meta(m_ngen, none_expr(), e_tag); A = m_full_context.mk_meta(m_ngen, none_expr(), e_tag);
else else
A = mk_constant(get_num_name()).set_tag(e_tag); A = mk_constant(get_num_name()).set_tag(e_tag);
level A_lvl = sort_level(m_tc->ensure_type(A, cs));
levels ls(A_lvl);
bool is_strict = true; bool is_strict = true;
bool inst_imp = true; bool inst_imp = true;
if (v.is_neg()) if (v.is_neg())