diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-21 16:36:37 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-21 16:36:37 +0000 |
commit | 2a9c3d3ddf535564f5468a3ad8811e67ba4488b0 (patch) | |
tree | 70b641d8169a09cc6833897d0e5fe45e50bba29f /kernel/safe_typing.ml | |
parent | 469975942e7ce58127286e05adba06afe2fdd8e9 (diff) |
repare la perte d'opacite a la fermeture de section
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2050 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
-rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index d7a57e2d9..1c7d5e17f 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -305,7 +305,7 @@ let add_constant sp ce locals env = sp env locals (safe_infer_declaration env (Def body')) op let add_discharged_constant sp r locals env = - let (body,typ,cst) = Cooking.cook_constant env r in + let (body,typ,cst,op) = Cooking.cook_constant env r in let env' = add_constraints cst env in match body with | None -> @@ -322,7 +322,7 @@ let add_discharged_constant sp r locals env = const_type = typ; const_hyps = sp_hyps; const_constraints = cst; - const_opaque = false } + const_opaque = op } in Environ.add_constant sp cb env' |