diff options
| author | herbelin | 2003-09-29 10:04:49 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-29 10:04:49 +0000 |
| commit | 5abf5d88205b9053285e2b06c79921239827caea (patch) | |
| tree | c36fc39a05786c40e2e684b04e986b4cb893e055 /interp/constrintern.ml | |
| parent | 6f5e9f8048b3a14bc7246862b048673032bc4e06 (diff) | |
Prise en compte d'un inductif sans argument dans le 'in' des 'match'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4498 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index f8bd7b3d9b..701e14e173 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -661,6 +661,7 @@ let internalise sigma env allow_soapp lvar c = let tids = List.fold_right Idset.add tids Idset.empty in let t = intern_type (tids,[],None,scopes) t in begin match t with + | RRef (loc,IndRef ind) -> ids,Some (loc,ind,[]) | RApp (loc,RRef (_,IndRef ind),l) -> let nal = List.map (function | RHole _ -> Anonymous |