diff options
Diffstat (limited to 'tactics/tacticals.ml')
| -rw-r--r-- | tactics/tacticals.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 54d04def05..baae41399b 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -118,16 +118,14 @@ let clause_type cls gl = (* Functions concerning matching of clausal environments *) -let matches gls n pat = - let m = get_pat pat in +let matches gls n m = let (wc,_) = startWalk gls in try let _ = Clenv.unify_0 [] wc m n in true with e when Logic.catchable_exception e -> false -let dest_match gls n pat = - let m = get_pat pat in +let dest_match gls n m = let mvs = collect_metas m in let (wc,_) = startWalk gls in let (mvb,_) = Clenv.unify_0 [] wc m n in |