diff options
| author | Emilio Jesus Gallego Arias | 2019-10-24 03:50:28 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-10-24 21:33:58 +0200 |
| commit | 4f82fb034f81fa762cfc47bfb3194c5f93a342eb (patch) | |
| tree | a397bd31a47488c6630b1d55d2e6f4081695f5fb /tactics/declare.mli | |
| parent | 43f037b5f3af7ab642bed4c6767bf7845156f92f (diff) | |
[declare] Split inductive declaration code to vernac/
The code is self-contained and only used by commands; this also
highlights the several `Libobject.obj` registered for each
declaration.
Diffstat (limited to 'tactics/declare.mli')
| -rw-r--r-- | tactics/declare.mli | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/tactics/declare.mli b/tactics/declare.mli index bf5877d4c4..1a037ef937 100644 --- a/tactics/declare.mli +++ b/tactics/declare.mli @@ -88,11 +88,6 @@ val declare_private_constant val set_declare_scheme : (string -> (inductive * Constant.t) array -> unit) -> unit -(** [declare_mind me] declares a block of inductive types with - their constructors in the current section; it returns the path of - the whole block and a boolean indicating if it is a primitive record. *) -val declare_mind : mutual_inductive_entry -> Libobject.object_name * bool - (** Declaration messages *) val definition_message : Id.t -> unit @@ -102,7 +97,7 @@ val cofixpoint_message : Id.t list -> unit val recursive_message : bool (** true = fixpoint *) -> int array option -> Id.t list -> unit -val exists_name : Id.t -> bool +val check_exists : Id.t -> unit (* Used outside this module only in indschemes *) exception AlreadyDeclared of (string option * Id.t) |