diff options
| author | glondu | 2007-07-06 14:00:59 +0000 |
|---|---|---|
| committer | glondu | 2007-07-06 14:00:59 +0000 |
| commit | 627affed266840b4888e7896c2e7fc286a2aab6f (patch) | |
| tree | 54cadfb7d1e79b14fba2a10a80db87e2eb4f211c /interp | |
| parent | 414ee07d82b093cec353fd67642818b75d0e23c5 (diff) | |
New intro pattern "@A", which generates a fresh name based on A.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9950 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 2 | ||||
| -rw-r--r-- | interp/genarg.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index d98788eede..2c61fc3c9b 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -79,6 +79,7 @@ type intro_pattern_expr = | IntroWildcard | IntroIdentifier of identifier | IntroAnonymous + | IntroFresh of identifier and case_intro_pattern_expr = intro_pattern_expr list list let rec pr_intro_pattern = function @@ -86,6 +87,7 @@ let rec pr_intro_pattern = function | IntroWildcard -> str "_" | IntroIdentifier id -> pr_id id | IntroAnonymous -> str "?" + | IntroFresh id -> str "@" ++ pr_id id and pr_case_intro_pattern = function | [pl] -> diff --git a/interp/genarg.mli b/interp/genarg.mli index ccaf93d58c..0df4e66a01 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -36,6 +36,7 @@ type intro_pattern_expr = | IntroWildcard | IntroIdentifier of identifier | IntroAnonymous + | IntroFresh of identifier and case_intro_pattern_expr = intro_pattern_expr list list val pr_intro_pattern : intro_pattern_expr -> Pp.std_ppcmds |