feat(kernel/instantiate): relax apply_beta pre-conditions

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-05-25 06:57:13 -07:00
parent 1ee6bb48fc
commit f050308df7

View file

@ -56,8 +56,9 @@ bool is_head_beta(expr const & t) {
}
expr apply_beta(expr f, unsigned num_args, expr const * args) {
lean_assert(num_args > 0);
if (!is_lambda(f)) {
if (num_args == 0) {
return f;
} else if (!is_lambda(f)) {
return mk_rev_app(f, num_args, args);
} else {
unsigned m = 1;