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

fix(library/user_recursors): remove unnecessary restriction on minor premises of user-defined recursors

Browse source 
see issue #492
This commit is contained in:
Leonardo de Moura 2015-05-18 09:58:02 -07:00
parent 830d0ce1a7
commit 62082c72a8
2 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/library/user_recursors.cpp
View file

@ -165,16 +165,6 @@ recursor_info mk_recursor_info(environment const & env, name const & r) {
if (!tc.is_def_eq(I_args_major[num_params + i], tele[first_index_pos + i]).first)
throw_invalid_major(tele, I, num_params, num_indices, major_pos);
}
for (unsigned i = 0; i < tele.size(); i++) {
if (info.is_minor(i)) {
buffer<expr> minor_tele;
expr minor_rtype = to_telescope(tc, mlocal_type(tele[i]), minor_tele);
expr minor_C = get_app_fn(minor_rtype);
if (!is_local(minor_C) || mlocal_name(minor_C) != mlocal_name(C))
throw exception(sstream() << "invalid user defined recursor, resultant type of minor premise '"
<< tele[i] << "' must be of the form (" << C << " ...)");
}
}
return info;
}

13
tests/lean/hott/ind_tac2.hlean Normal file
View file

@ -0,0 +1,13 @@
set_option pp.universes true
check @trunc.rec_on
attribute trunc.rec_on [recursor]
print [recursor] trunc.rec_on
check @type_quotient.rec_on
attribute type_quotient.rec_on [recursor]
print [recursor] type_quotient.rec_on