max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix(frontends/lean/structure_cmd): allow default values for function fields

Browse source
This commit is contained in:
Leonardo de Moura 2017-03-06 07:41:42 -08:00
parent 156e5603d6
commit 045fe4ad25
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -895,7 +895,8 @@ struct structure_cmd_fn {
/* TODO(Leo): add helper function for adding definition.
It should unfold_untrusted_macros */
expr decl_type = unfold_untrusted_macros(m_env, Pi(args, mlocal_type(field.first)));
expr decl_value = unfold_untrusted_macros(m_env, Fun(args, *field.second));
expr val = mk_app(m_ctx, get_id_name(), *field.second);
expr decl_value = unfold_untrusted_macros(m_env, Fun(args, val));
name_set used_univs;
used_univs = collect_univ_params(decl_value, used_univs);
used_univs = collect_univ_params(decl_type, used_univs);

6
tests/lean/run/fn_default.lean Normal file
View file

@ -0,0 +1,6 @@
structure foo :=
(bar : Π n : ℕ, ℕ := id)
(baz : Π {n : ℕ}, ℕ := id)
(bat : Π n : ℕ, ℕ := λ n, n)
check {foo.}