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

fix(frontends/lean/structure_cmd): fixes #968

Browse source
This commit is contained in:
Leonardo de Moura 2016-02-04 15:44:54 -08:00
parent 496c84dac6
commit 31cc0ebb6a
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/frontends/lean/structure_cmd.cpp
View file

@ -605,6 +605,7 @@ struct structure_cmd_fn {
expr tmp = Pi(m_params, Pi(m_fields, dummy)); expr tmp = Pi(m_params, Pi(m_fields, dummy));
collected_locals local_set; collected_locals local_set;
::lean::collect_locals(tmp, local_set); ::lean::collect_locals(tmp, local_set);
collect_annonymous_inst_implicit(m_p, local_set);
sort_locals(local_set.get_collected(), m_p, locals); sort_locals(local_set.get_collected(), m_p, locals);
} }

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

@ -0,0 +1,15 @@
variables (A : Type) [inhabited A]
definition f (a : A) : A := a
check @f nat nat.is_inhabited
structure foo :=
(a : A)
check @foo nat nat.is_inhabited
inductive bla :=
| mk : A → bla
check @bla nat nat.is_inhabited