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

fix(library/definitional/equations): bug in recursive application elimination

Browse source
This commit is contained in:
Leonardo de Moura 2015-01-05 17:17:14 -08:00
parent cbae6a2ca0
commit 3325d791de
2 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/library/definitional/equations.cpp
View file

@ -1231,8 +1231,9 @@ class equation_compiler_fn {
return Fun(local, new_body);
}
case expr_kind::Pi: {
expr local = mk_local(m_main.mk_fresh_name(), binding_name(e), binding_domain(e), binding_info(e));
expr new_body = elim(instantiate(binding_body(e), local), b);
expr new_domain = elim(binding_domain(e), b);
expr local = mk_local(m_main.mk_fresh_name(), binding_name(e), new_domain, binding_info(e));
expr new_body = elim(instantiate(binding_body(e), local), b);
return Pi(local, new_body);
}}
lean_unreachable();

15
tests/lean/run/eq21.lean Normal file
View file

@ -0,0 +1,15 @@
inductive formula :=
eqf : nat → nat → formula,
impf : formula → formula → formula
namespace formula
definition denote : formula → Prop,
denote (eqf n1 n2) := n1 = n2,
denote (impf f1 f2) := denote f1 → denote f2
theorem denote_eqf (n1 n2 : nat) : denote (eqf n1 n2) = (n1 = n2) :=
rfl
theorem denote_impf (f1 f2 : formula) : denote (impf f1 f2) = (denote f1 → denote f2) :=
rfl
end formula