diff options
| author | gareuselesinge | 2012-06-18 14:52:27 +0000 |
|---|---|---|
| committer | gareuselesinge | 2012-06-18 14:52:27 +0000 |
| commit | 1e67a490cd5ebbf5669e4cbf34a2a3066c0b5fc1 (patch) | |
| tree | 028eb2e6f65e79bb9b8ad3d10b300f1ec70103a4 /kernel/term_typing.ml | |
| parent | 216dea268e06c813d3a98893db90676e1ada120c (diff) | |
Proof using: nested sections bugfix
It used to be the case that the list of declared section variables
for a constant was taken into account only when discharging the first
enclosing sections, but not any outer section. Example of the bug:
Section A. Variable x : bool.
Section B. Variable y : nat.
Lemma foo : True. Proof using x y. Admitted.
End B. End A.
Check foo. (* nat -> True instead of bool -> nat -> True *)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15445 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 887a900100..2f57440e7e 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -151,7 +151,8 @@ let translate_constant env kn ce = let translate_recipe env kn r = build_constant_declaration env kn - (let def,typ,cst = Cooking.cook_constant env r in def,typ,cst,None) + (let def,typ,cst,hyps = Cooking.cook_constant env r in + def,typ,cst,Some hyps) (* Insertion of inductive types. *) |