diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/declarations.mli | 6 | ||||
| -rw-r--r-- | kernel/inductive.mli | 3 |
2 files changed, 4 insertions, 5 deletions
diff --git a/kernel/declarations.mli b/kernel/declarations.mli index 3e8de34c49..36af9dc48b 100644 --- a/kernel/declarations.mli +++ b/kernel/declarations.mli @@ -40,7 +40,7 @@ type constant_body = { const_body : constr_substituted option; const_type : constant_type; const_body_code : to_patch_substituted; - (*i const_type_code : to_patch;i*) + (* const_type_code : to_patch;*) const_constraints : constraints; const_opaque : bool; const_inline : bool} @@ -67,11 +67,11 @@ val recarg_length : wf_paths -> int -> int val subst_wf_paths : substitution -> wf_paths -> wf_paths (** -{% \begin{verbatim} %} +{v Inductive I1 (params) : U1 := c11 : T11 | ... | c1p1 : T1p1 ... with In (params) : Un := cn1 : Tn1 | ... | cnpn : Tnpn -{% \end{verbatim} %} +v} *) type monomorphic_inductive_arity = { diff --git a/kernel/inductive.mli b/kernel/inductive.mli index 202b1aa4c5..73bd2692ee 100644 --- a/kernel/inductive.mli +++ b/kernel/inductive.mli @@ -89,8 +89,7 @@ val max_inductive_sort : sorts array -> universe val instantiate_universes : env -> rel_context -> polymorphic_arity -> types array -> rel_context * sorts -(************************************************************** - Debug *) +(** {6 Debug} *) type size = Large | Strict type subterm_spec = |