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 /contrib/interface | |
| 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 'contrib/interface')
| -rw-r--r-- | contrib/interface/xlate.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index fe1c55003e..202e58472e 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -632,6 +632,7 @@ let rec xlate_intro_pattern = | IntroWildcard -> CT_coerce_ID_to_INTRO_PATT(CT_ident "_" ) | IntroIdentifier c -> CT_coerce_ID_to_INTRO_PATT(xlate_ident c) | IntroAnonymous -> xlate_error "TODO: IntroAnonymous" + | IntroFresh _ -> xlate_error "TODO: IntroFresh" let compute_INV_TYPE = function FullInversionClear -> CT_inv_clear |