diff options
author | 2004-09-25 11:18:07 +0000 | |
---|---|---|
committer | 2004-09-25 11:18:07 +0000 | |
commit | 297d4ee548ae983cd14a249d9bab041cdacde9bd (patch) | |
tree | 6f05ab725719504b2cda3e36821731ad551b2fcc /pretyping/matching.mli | |
parent | 5ab19982880474727a9d0f0dcd36c7175afceb33 (diff) |
Remplacement de l'exception NextOccurrence _ par PatternMatchingFailure dans sub_match qui est renommé par ailleurs en match_subterm
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6133 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/matching.mli')
-rw-r--r-- | pretyping/matching.mli | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/pretyping/matching.mli b/pretyping/matching.mli index 886d87ae0..2b0b8f240 100644 --- a/pretyping/matching.mli +++ b/pretyping/matching.mli @@ -39,11 +39,10 @@ val is_matching : constr_pattern -> constr -> bool val matches_conv :env -> Evd.evar_map -> constr_pattern -> constr -> patvar_map -(* To skip to the next occurrence *) -exception NextOccurrence of int - -(* Tries to match a _closed_ subterm of [c] with [pat] *) -val sub_match : int -> constr_pattern -> constr -> patvar_map * constr +(* [match_subterm n pat c] returns the substitution and the context + corresponding to the [n+1]th _closed_ subterm of [c] matching [pat]; + It raises PatternMatchingFailure if no such matching exists *) +val match_subterm : int -> constr_pattern -> constr -> patvar_map * constr (* [is_matching_conv env sigma pat c] tells if [c] matches against [pat] up to conversion for constants in patterns *) |