diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-11 11:10:31 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-11 11:10:31 +0000 |
| commit | f69af1fe44d2a1ff7260147ca643a4f4981379cd (patch) | |
| tree | c6e9f5b6d09067ec7a4c4d8bcc117d3a5348a232 /pretyping/termops.ml | |
| parent | 12bdc17cd540af8b635db3ea4f0095bcc15fec4b (diff) | |
Correction de deux bugs liés au commit 11094 sur les clauses "at" et "in".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11100 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
| -rw-r--r-- | pretyping/termops.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index aa6c37491..44c63ba0e 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -670,10 +670,8 @@ let subst_term_occ_decl (nowhere_except_in,locs as plocs) c (id,bodyopt,typ as d | None -> (id,None,subst_term_occ plocs c typ) | Some body -> if locs = [] then - if nowhere_except_in then - (id,Some (subst_term c body),subst_term c typ) - else - d + if nowhere_except_in then d + else (id,Some (subst_term c body),subst_term c typ) else let (nbocc,body') = subst_term_occ_gen plocs 1 c body in let (nbocc',t') = subst_term_occ_gen plocs nbocc c typ in |