From 2bb331f734ed58eb90eb9535fe883aa5d2f5a278 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 22 May 2000 13:14:38 +0000
Subject: Changement nom module Constant en Declarations

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@459 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/constant.ml      | 76 -----------------------------------------------
 kernel/constant.mli     | 78 -------------------------------------------------
 kernel/declarations.ml  | 76 +++++++++++++++++++++++++++++++++++++++++++++++
 kernel/declarations.mli | 78 +++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 154 insertions(+), 154 deletions(-)
 delete mode 100644 kernel/constant.ml
 delete mode 100644 kernel/constant.mli
 create mode 100644 kernel/declarations.ml
 create mode 100644 kernel/declarations.mli

(limited to 'kernel')

diff --git a/kernel/constant.ml b/kernel/constant.ml
deleted file mode 100644
index 7f45aae570..0000000000
--- a/kernel/constant.ml
+++ /dev/null
@@ -1,76 +0,0 @@
-
-(* $Id$ *)
-
-open Names
-open Univ
-open Generic
-open Term
-open Sign
-
-(* Constant entries *)
-
-type lazy_constant_value =
-  | Cooked of constr
-  | Recipe of (unit -> constr)
-
-type constant_value = lazy_constant_value ref
-
-type constant_body = {
-  const_kind : path_kind;
-  const_body : constant_value option;
-  const_type : typed_type;
-  const_hyps : typed_type signature;
-  const_constraints : constraints;
-  mutable const_opaque : bool }
-
-let is_defined cb = 
-  match cb.const_body with Some _ -> true | _ -> false
-
-let is_opaque cb = cb.const_opaque
-
-let cook_constant = function
-  | { contents = Cooked c } -> c
-  | { contents = Recipe f } as v -> let c = f () in v := Cooked c; c
-
-type constant_entry = {
-  const_entry_body : lazy_constant_value;
-  const_entry_type : constr option }
-
-(* Inductive entries *)
-
-type recarg = 
-  | Param of int 
-  | Norec 
-  | Mrec of int 
-  | Imbr of inductive_path * recarg list
-
-type mutual_inductive_packet = {
-  mind_consnames : identifier array;
-  mind_typename : identifier;
-  mind_lc : constr;
-  mind_arity : typed_type;
-  mind_sort : sorts;
-  mind_nrealargs : int;
-  mind_kelim : sorts list;
-  mind_listrec : (recarg list) array;
-  mind_finite : bool }
-
-type mutual_inductive_body = {
-  mind_kind : path_kind;
-  mind_ntypes : int;
-  mind_hyps : typed_type signature;
-  mind_packets : mutual_inductive_packet array;
-  mind_constraints : constraints;
-  mind_singl : constr option;
-  mind_nparams : int }
-
-let mind_type_finite mib i = mib.mind_packets.(i).mind_finite
-
-(*s Declaration. *)
-
-type mutual_inductive_entry = {
-  mind_entry_nparams : int;
-  mind_entry_finite : bool;
-  mind_entry_inds : (identifier * constr * identifier list * constr) list }
-
-let mind_nth_type_packet mib n = mib.mind_packets.(n)
diff --git a/kernel/constant.mli b/kernel/constant.mli
deleted file mode 100644
index 16894c7359..0000000000
--- a/kernel/constant.mli
+++ /dev/null
@@ -1,78 +0,0 @@
-
-(* $Id$ *)
-
-(*i*)
-open Names
-open Univ
-open Term
-open Sign
-(*i*)
-
-(* Constants (internal representation). *)
-
-type lazy_constant_value =
-  | Cooked of constr
-  | Recipe of (unit -> constr)
-
-type constant_value = lazy_constant_value ref
-
-type constant_body = {
-  const_kind : path_kind;
-  const_body : constant_value option;
-  const_type : typed_type;
-  const_hyps : typed_type signature;
-  const_constraints : constraints;
-  mutable const_opaque : bool }
-
-val is_defined : constant_body -> bool
-
-val is_opaque : constant_body -> bool
-
-val cook_constant : constant_value -> constr
-
-(*s Constant declaration. *)
-
-type constant_entry= {
-  const_entry_body : lazy_constant_value;
-  const_entry_type : constr option }
-
-(* Inductive types (internal representation). *)
-
-type recarg = 
-  | Param of int 
-  | Norec 
-  | Mrec of int 
-  | Imbr of inductive_path * (recarg list)
-
-type mutual_inductive_packet = {
-  mind_consnames : identifier array;
-  mind_typename : identifier;
-  mind_lc : constr;
-  mind_arity : typed_type;
-  mind_sort : sorts;
-  mind_nrealargs : int;
-  mind_kelim : sorts list;
-  mind_listrec : (recarg list) array;
-  mind_finite : bool }
-
-type mutual_inductive_body = {
-  mind_kind : path_kind;
-  mind_ntypes : int;
-  mind_hyps : typed_type signature;
-  mind_packets : mutual_inductive_packet array;
-  mind_constraints : constraints;
-  mind_singl : constr option;
-  mind_nparams : int }
-
-val mind_type_finite : mutual_inductive_body -> int -> bool
-
-val mind_nth_type_packet : 
-  mutual_inductive_body -> int -> mutual_inductive_packet
-
-(*s Declaration of inductive types. *)
-
-type mutual_inductive_entry = {
-  mind_entry_nparams : int;
-  mind_entry_finite : bool;
-  mind_entry_inds : (identifier * constr * identifier list * constr) list }
-
diff --git a/kernel/declarations.ml b/kernel/declarations.ml
new file mode 100644
index 0000000000..7f45aae570
--- /dev/null
+++ b/kernel/declarations.ml
@@ -0,0 +1,76 @@
+
+(* $Id$ *)
+
+open Names
+open Univ
+open Generic
+open Term
+open Sign
+
+(* Constant entries *)
+
+type lazy_constant_value =
+  | Cooked of constr
+  | Recipe of (unit -> constr)
+
+type constant_value = lazy_constant_value ref
+
+type constant_body = {
+  const_kind : path_kind;
+  const_body : constant_value option;
+  const_type : typed_type;
+  const_hyps : typed_type signature;
+  const_constraints : constraints;
+  mutable const_opaque : bool }
+
+let is_defined cb = 
+  match cb.const_body with Some _ -> true | _ -> false
+
+let is_opaque cb = cb.const_opaque
+
+let cook_constant = function
+  | { contents = Cooked c } -> c
+  | { contents = Recipe f } as v -> let c = f () in v := Cooked c; c
+
+type constant_entry = {
+  const_entry_body : lazy_constant_value;
+  const_entry_type : constr option }
+
+(* Inductive entries *)
+
+type recarg = 
+  | Param of int 
+  | Norec 
+  | Mrec of int 
+  | Imbr of inductive_path * recarg list
+
+type mutual_inductive_packet = {
+  mind_consnames : identifier array;
+  mind_typename : identifier;
+  mind_lc : constr;
+  mind_arity : typed_type;
+  mind_sort : sorts;
+  mind_nrealargs : int;
+  mind_kelim : sorts list;
+  mind_listrec : (recarg list) array;
+  mind_finite : bool }
+
+type mutual_inductive_body = {
+  mind_kind : path_kind;
+  mind_ntypes : int;
+  mind_hyps : typed_type signature;
+  mind_packets : mutual_inductive_packet array;
+  mind_constraints : constraints;
+  mind_singl : constr option;
+  mind_nparams : int }
+
+let mind_type_finite mib i = mib.mind_packets.(i).mind_finite
+
+(*s Declaration. *)
+
+type mutual_inductive_entry = {
+  mind_entry_nparams : int;
+  mind_entry_finite : bool;
+  mind_entry_inds : (identifier * constr * identifier list * constr) list }
+
+let mind_nth_type_packet mib n = mib.mind_packets.(n)
diff --git a/kernel/declarations.mli b/kernel/declarations.mli
new file mode 100644
index 0000000000..47f0993e90
--- /dev/null
+++ b/kernel/declarations.mli
@@ -0,0 +1,78 @@
+
+(* $Id$ *)
+
+(*i*)
+open Names
+open Univ
+open Term
+open Sign
+(*i*)
+
+(*s Constants (internal representation). *)
+
+type lazy_constant_value =
+  | Cooked of constr
+  | Recipe of (unit -> constr)
+
+type constant_value = lazy_constant_value ref
+
+type constant_body = {
+  const_kind : path_kind;
+  const_body : constant_value option;
+  const_type : typed_type;
+  const_hyps : typed_type signature;
+  const_constraints : constraints;
+  mutable const_opaque : bool }
+
+val is_defined : constant_body -> bool
+
+val is_opaque : constant_body -> bool
+
+val cook_constant : constant_value -> constr
+
+(*s Constant declaration. *)
+
+type constant_entry= {
+  const_entry_body : lazy_constant_value;
+  const_entry_type : constr option }
+
+(*s Inductive types (internal representation). *)
+
+type recarg = 
+  | Param of int 
+  | Norec 
+  | Mrec of int 
+  | Imbr of inductive_path * (recarg list)
+
+type mutual_inductive_packet = {
+  mind_consnames : identifier array;
+  mind_typename : identifier;
+  mind_lc : constr;
+  mind_arity : typed_type;
+  mind_sort : sorts;
+  mind_nrealargs : int;
+  mind_kelim : sorts list;
+  mind_listrec : (recarg list) array;
+  mind_finite : bool }
+
+type mutual_inductive_body = {
+  mind_kind : path_kind;
+  mind_ntypes : int;
+  mind_hyps : typed_type signature;
+  mind_packets : mutual_inductive_packet array;
+  mind_constraints : constraints;
+  mind_singl : constr option;
+  mind_nparams : int }
+
+val mind_type_finite : mutual_inductive_body -> int -> bool
+
+val mind_nth_type_packet : 
+  mutual_inductive_body -> int -> mutual_inductive_packet
+
+(*s Declaration of inductive types. *)
+
+type mutual_inductive_entry = {
+  mind_entry_nparams : int;
+  mind_entry_finite : bool;
+  mind_entry_inds : (identifier * constr * identifier list * constr) list }
+
-- 
cgit v1.2.3