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

fix(kernel/converter): missing case

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-08-28 15:21:57 -07:00
parent 641624a277
commit 79acd3e1b7
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/kernel/converter.cpp
View file

@ -200,7 +200,7 @@ struct default_converter : public converter {
lean_assert(m <= num_args); lean_assert(m <= num_args);
r = whnf_core(mk_rev_app(instantiate(binding_body(f), m, args.data() + (num_args - m)), num_args - m, args.data()), c); r = whnf_core(mk_rev_app(instantiate(binding_body(f), m, args.data() + (num_args - m)), num_args - m, args.data()), c);
} else { } else {
r = is_eqp(f, f0) ? e : mk_rev_app(f, args.size(), args.data()); r = f == f0 ? e : whnf_core(mk_rev_app(f, args.size(), args.data()), c);
} }
break; break;
}} }}
@ -466,6 +466,7 @@ struct default_converter : public converter {
// apply whnf (without using delta-reduction or normalizer extensions) // apply whnf (without using delta-reduction or normalizer extensions)
expr t_n = whnf_core(t, c); expr t_n = whnf_core(t, c);
expr s_n = whnf_core(s, c); expr s_n = whnf_core(s, c);
if (!is_eqp(t_n, t) || !is_eqp(s_n, s)) { if (!is_eqp(t_n, t) || !is_eqp(s_n, s)) {
r = quick_is_def_eq(t_n, s_n, c, jst, cs); r = quick_is_def_eq(t_n, s_n, c, jst, cs);
if (r != l_undef) return to_bcs(r == l_true, cs); if (r != l_undef) return to_bcs(r == l_true, cs);