feat(kernel/instantiate): relax apply_beta pre-conditions
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
parent
1ee6bb48fc
commit
f050308df7
1 changed files with 3 additions and 2 deletions
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue