diff options
| author | herbelin | 2002-09-03 16:30:02 +0000 |
|---|---|---|
| committer | herbelin | 2002-09-03 16:30:02 +0000 |
| commit | 420143a1aeaaf152a4e10867fe74fb2079367ea5 (patch) | |
| tree | c1267c0e3601e64f1640cb51c3ade5b8986a1ec9 /pretyping/rawterm.ml | |
| parent | a5aa6380db920430299b858eb2e07b086f3d980c (diff) | |
pretyping/pretyping.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2986 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/rawterm.ml')
| -rw-r--r-- | pretyping/rawterm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/rawterm.ml b/pretyping/rawterm.ml index 0f376ae5e7..250fc70dcc 100644 --- a/pretyping/rawterm.ml +++ b/pretyping/rawterm.ml @@ -50,6 +50,7 @@ type hole_kind = | QuestionMark | CasesType | InternalHole + | TomatchTypeParameter of inductive * int type 'ctxt reference = | RConst of constant * 'ctxt @@ -163,9 +164,8 @@ 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 | InternalHole)) -> - raw + | RHole (loc, (AbstractionType _ | QuestionMark | CasesType | + InternalHole | TomatchTypeParameter _)) -> raw | RCast (loc,r1,r2) -> let r1' = subst_raw subst r1 and r2' = subst_raw subst r2 in |