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 /pretyping/rawterm.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 'pretyping/rawterm.ml')
| -rw-r--r-- | pretyping/rawterm.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index 77afa80410..0075be7d82 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -50,7 +50,7 @@ type 'a with_bindings = 'a * 'a substitution type hole_kind = | ImplicitArg of global_reference * int - | AbstractionType of name + | BinderType of name | QuestionMark | CasesType | InternalHole @@ -235,7 +235,7 @@ let rec subst_raw subst raw = let ref' = subst_global subst ref in if ref' == ref then raw else RHole (loc,ImplicitArg (ref',i)) - | RHole (loc, (AbstractionType _ | QuestionMark | CasesType | + | RHole (loc, (BinderType _ | QuestionMark | CasesType | InternalHole | TomatchTypeParameter _)) -> raw | RCast (loc,r1,r2) -> |