diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-27 14:39:14 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-27 14:39:14 +0000 |
| commit | b3e1879a09c3623c7a04858a7421b316abd65293 (patch) | |
| tree | 7b02b6dd43c7febef378d1f8094d344327ad6457 /kernel/cooking.ml | |
| parent | fb304bfac1872d724c814fcd860c691582492568 (diff) | |
Minor cleanup around Term_typing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16253 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/cooking.ml')
| -rw-r--r-- | kernel/cooking.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/kernel/cooking.ml b/kernel/cooking.ml index e8e35ee85..0ff7d64f0 100644 --- a/kernel/cooking.ml +++ b/kernel/cooking.ml @@ -119,6 +119,12 @@ type recipe = { d_abstract : named_context; d_modlist : work_list } +type inline = bool + +type result = + constant_def * constant_type * Univ.constraints * inline + * Sign.section_context option + let on_body f = function | Undef inl -> Undef inl | Def cs -> Def (Lazyconstr.from_val (f (Lazyconstr.force cs))) @@ -151,4 +157,4 @@ let cook_constant env r = let j = make_judge (constr_of_def body) typ in Typeops.make_polymorphic_if_constant_for_ind env j in - (body, typ, cb.const_constraints, cb.const_inline_code, const_hyps) + (body, typ, cb.const_constraints, cb.const_inline_code, Some const_hyps) |