diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-06 14:41:14 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-06 14:41:14 +0000 |
| commit | d3407458889d4ba4ff6fbf465a92c86976c01ba5 (patch) | |
| tree | 8b72e3033d70b3e9e1a6c50c9d36cca7b252cba5 /translate/ppvernacnew.ml | |
| parent | 394d2954c31047ca87b0575a1eaff019b247b3d8 (diff) | |
Mise en place possibilité de définitions locales dans les paramètres des inductifs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4319 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate/ppvernacnew.ml')
| -rw-r--r-- | translate/ppvernacnew.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 0471d5d14..f3a0798ef 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -659,7 +659,7 @@ pr_vbinders bl ++ spc()) (fun (env,params) d -> match d with | LocalRawAssum (nal,t) -> let t = Constrintern.interp_type sigma env t in - let ctx = list_map_i (fun i (_,na) -> (na,None,lift i t)) 0 nal + let ctx = list_map_i (fun i (_,na) -> (na,None,Term.lift i t)) 0 nal in let ctx = List.rev ctx in (Environ.push_rel_context ctx env, ctx@params) | LocalRawDef ((_,na),c) -> |