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

feat(library/match): improve match_app_core

Browse source
This commit is contained in:
Leonardo de Moura 2015-02-03 17:37:22 -08:00
parent 790fd9c24b
commit 44e575c895
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/library/match.cpp
View file

@ -219,7 +219,19 @@ class match_fn : public match_context {
} }
bool match_app_core(expr const & p, expr const & t) { bool match_app_core(expr const & p, expr const & t) {
return match_core(app_fn(p), app_fn(t)) && _match(app_arg(p), app_arg(t)); buffer<expr> p_args;
buffer<expr> t_args;
expr const & p_fn = get_app_args(p, p_args);
expr const & t_fn = get_app_args(t, t_args);
if (p_args.size() != t_args.size())
return false;
if (!match_core(p_fn, t_fn))
return false;
for (unsigned i = 0; i < p_args.size(); i++) {
if (!_match(p_args[i], t_args[i]))
return false;
}
return true;
} }
bool match_app(expr const & p, expr const & t) { bool match_app(expr const & p, expr const & t) {