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

feat(kernel/type_checker): use expression before normalization in the unification constraints generated by the typechecker

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-12-20 11:22:13 -08:00
parent daef2b7b24
commit 026f666526
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/kernel/type_checker.cpp
View file

@ -68,7 +68,7 @@ class type_checker::imp {
expr B = m_menv->mk_metavar(extend(ctx, g_x_name, A)); expr B = m_menv->mk_metavar(extend(ctx, g_x_name, A));
expr p = mk_pi(g_x_name, A, B); expr p = mk_pi(g_x_name, A, B);
justification jst = mk_function_expected_justification(ctx, s); justification jst = mk_function_expected_justification(ctx, s);
m_uc->push_back(mk_eq_constraint(ctx, r, p, jst)); m_uc->push_back(mk_eq_constraint(ctx, e, p, jst));
return p; return p;
} }
throw function_expected_exception(env(), ctx, s); throw function_expected_exception(env(), ctx, s);
@ -86,7 +86,7 @@ class type_checker::imp {
return Type(); return Type();
if (has_metavar(u) && m_menv && m_uc) { if (has_metavar(u) && m_menv && m_uc) {
justification jst = mk_type_expected_justification(ctx, s); justification jst = mk_type_expected_justification(ctx, s);
m_uc->push_back(mk_convertible_constraint(ctx, u, TypeU, jst)); m_uc->push_back(mk_convertible_constraint(ctx, e, TypeU, jst));
return u; return u;
} }
throw type_expected_exception(env(), ctx, s); throw type_expected_exception(env(), ctx, s);