diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-26 17:31:10 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-26 17:31:10 +0000 |
commit | 0699ef2ffba984e7b7552787894b142dd924f66a (patch) | |
tree | f67f2842cc12c523b620663ce23840bf6a411338 /intf | |
parent | 0919391f43729bf172ab00c8dec9438a0a9f59ab (diff) |
Moved Entries module back to kernel
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15931 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'intf')
-rw-r--r-- | intf/entries.mli | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/intf/entries.mli b/intf/entries.mli deleted file mode 100644 index 2460ec644..000000000 --- a/intf/entries.mli +++ /dev/null @@ -1,83 +0,0 @@ -(************************************************************************) -(* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *) -(* \VV/ **************************************************************) -(* // * This file is distributed under the terms of the *) -(* * GNU Lesser General Public License Version 2.1 *) -(************************************************************************) - -open Names -open Univ -open Term -open Sign - -(** This module defines the entry types for global declarations. This - information is entered in the environments. This includes global - constants/axioms, mutual inductive definitions, modules and module - types *) - - -(** {6 Local entries } *) - -type local_entry = - | LocalDef of constr - | LocalAssum of constr - - -(** {6 Declaration of inductive types. } *) - -(** Assume the following definition in concrete syntax: -{v Inductive I1 (x1:X1) ... (xn:Xn) : A1 := c11 : T11 | ... | c1n1 : T1n1 -... -with Ip (x1:X1) ... (xn:Xn) : Ap := cp1 : Tp1 | ... | cpnp : Tpnp. v} - -then, in i{^ th} block, [mind_entry_params] is [xn:Xn;...;x1:X1]; -[mind_entry_arity] is [Ai], defined in context [x1:X1;...;xn:Xn]; -[mind_entry_lc] is [Ti1;...;Tini], defined in context [[A'1;...;A'p;x1:X1;...;xn:Xn]] where [A'i] is [Ai] generalized over [[x1:X1;...;xn:Xn]]. -*) - -type one_inductive_entry = { - mind_entry_typename : identifier; - mind_entry_arity : constr; - mind_entry_consnames : identifier list; - mind_entry_lc : constr list } - -type mutual_inductive_entry = { - mind_entry_record : bool; - mind_entry_finite : bool; - mind_entry_params : (identifier * local_entry) list; - mind_entry_inds : one_inductive_entry list } - -(** {6 Constants (Definition/Axiom) } *) - -type definition_entry = { - const_entry_body : constr; - const_entry_secctx : section_context option; - const_entry_type : types option; - const_entry_opaque : bool } - -type inline = int option (* inlining level, None for no inlining *) - -type parameter_entry = section_context option * types * inline - -type constant_entry = - | DefinitionEntry of definition_entry - | ParameterEntry of parameter_entry - -(** {6 Modules } *) - -type module_struct_entry = - MSEident of module_path - | MSEfunctor of mod_bound_id * module_struct_entry * module_struct_entry - | MSEwith of module_struct_entry * with_declaration - | MSEapply of module_struct_entry * module_struct_entry - -and with_declaration = - With_Module of identifier list * module_path - | With_Definition of identifier list * constr - -and module_entry = - { mod_entry_type : module_struct_entry option; - mod_entry_expr : module_struct_entry option} - - |