diff options
| author | herbelin | 2003-03-29 14:06:47 +0000 |
|---|---|---|
| committer | herbelin | 2003-03-29 14:06:47 +0000 |
| commit | 67787e6daeb7bf2fe59d5546969197ca9f87c2dc (patch) | |
| tree | cb5d2bb991afcfcb53d879aa37d2a2187c90ca9c /interp/constrintern.ml | |
| parent | 5193d92186e14794a346392af4d80fc264d8fff7 (diff) | |
Mise en place de 'Implicit Variable' (variante du 'Reserve' de mizar)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3806 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index e7db4afe4e..9ab3ddf42f 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -335,7 +335,11 @@ let check_capture loc ty = function () let locate_if_isevar loc na = function - | RHole _ -> RHole (loc, AbstractionType na) + | RHole _ -> + (try match na with + | Name id -> Reserve.find_reserved_type id + | Anonymous -> raise Not_found + with Not_found -> RHole (loc, BinderType na)) | x -> x (**********************************************************************) |