From 627affed266840b4888e7896c2e7fc286a2aab6f Mon Sep 17 00:00:00 2001
From: glondu
Date: Fri, 6 Jul 2007 14:00:59 +0000
Subject: 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
---
 interp/genarg.ml  | 2 ++
 interp/genarg.mli | 1 +
 2 files changed, 3 insertions(+)

(limited to 'interp')

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
-- 
cgit v1.2.3