diff options
author | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-13 14:28:07 +0000 |
---|---|---|
committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-04-13 14:28:07 +0000 |
commit | 1d66c6ec9dfa05948d395c47e26706ba811a6621 (patch) | |
tree | edcc16807bb5697c3b9000031b938b7674c20e70 /kernel/term_typing.ml | |
parent | f7c2010c34adbc5c20e14909546c0964a32764cc (diff) |
Fix merge.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13994 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term_typing.ml')
-rw-r--r-- | kernel/term_typing.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 63639b9a6..97d2fe521 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -94,6 +94,7 @@ let infer_declaration env dcl = let (j,cst) = infer env c.const_entry_body in let (typ,cst) = constrain_type env j cst c.const_entry_polymorphic c.const_entry_type + in let def = if c.const_entry_opaque then OpaqueDef (Declarations.opaque_from_val j.uj_val) |