diff options
Diffstat (limited to 'library/decl_kinds.mli')
| -rw-r--r-- | library/decl_kinds.mli | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/library/decl_kinds.mli b/library/decl_kinds.mli index 0ebab9ca0..abc201eb1 100644 --- a/library/decl_kinds.mli +++ b/library/decl_kinds.mli @@ -1,17 +1,17 @@ -(************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) -(* \VV/ **************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(************************************************************************) +(*********************************************************************** + v * The Coq Proof Assistant / The Coq Development Team + <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud + \VV/ ************************************************************* + // * This file is distributed under the terms of the + * GNU Lesser General Public License Version 2.1 + ***********************************************************************) -(* $Id$ *) +(** {% $ %}Id: decl_kinds.mli 12337 2009-09-17 15:58:14Z glondu {% $ %} *) open Util open Libnames -(* Informal mathematical status of declarations *) +(** Informal mathematical status of declarations *) type locality = | Local @@ -44,7 +44,7 @@ type definition_object_kind = type assumption_object_kind = Definitional | Logical | Conjectural -(* [assumption_kind] +(** [assumption_kind] | Local | Global ------------------------------------ @@ -56,7 +56,7 @@ type assumption_kind = locality * assumption_object_kind type definition_kind = locality * boxed_flag * definition_object_kind -(* Kinds used in proofs *) +(** Kinds used in proofs *) type goal_object_kind = | DefinitionBody of definition_object_kind @@ -64,31 +64,31 @@ type goal_object_kind = type goal_kind = locality * goal_object_kind -(* Kinds used in library *) +(** Kinds used in library *) type logical_kind = | IsAssumption of assumption_object_kind | IsDefinition of definition_object_kind | IsProof of theorem_kind -(* Utils *) +(** Utils *) val logical_kind_of_goal_kind : goal_object_kind -> logical_kind val string_of_theorem_kind : theorem_kind -> string val string_of_definition_kind : locality * boxed_flag * definition_object_kind -> string -(* About locality *) +(** About locality *) val strength_of_global : global_reference -> locality val string_of_strength : locality -> string -(* About recursive power of type declarations *) +(** About recursive power of type declarations *) type recursivity_kind = - | Finite (* = inductive *) - | CoFinite (* = coinductive *) - | BiFinite (* = non-recursive, like in "Record" definitions *) + | Finite (** = inductive *) + | CoFinite (** = coinductive *) + | BiFinite (** = non-recursive, like in "Record" definitions *) -(* helper, converts to "finiteness flag" booleans *) +(** helper, converts to "finiteness flag" booleans *) val recursivity_flag_of_kind : recursivity_kind -> bool |