From 1f95f087d79d6c2c79012921ce68553caf20b090 Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 5 Nov 2002 16:59:16 +0000
Subject: Intégration des modifs de la branche mowgli : - Simplification de
 strength qui est maintenant un simple drapeau Local/Global. - Export des
 catégories de déclarations (Lemma/Theorem/Definition/.../  
 Axiom/Parameter/..) vers les .vo (nouveau fichier library/decl_kinds.ml). -
 Export des variables de section initialement associées à une déclaration  
 (nouveau fichier library/dischargedhypsmap.ml).
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3212 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/decl_kinds.ml | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 library/decl_kinds.ml

(limited to 'library/decl_kinds.ml')

diff --git a/library/decl_kinds.ml b/library/decl_kinds.ml
new file mode 100644
index 000000000..566da65d6
--- /dev/null
+++ b/library/decl_kinds.ml
@@ -0,0 +1,67 @@
+(***********************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team    *)
+(* <O___,, *        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              *)
+(*   \VV/  *************************************************************)
+(*    //   *      This file is distributed under the terms of the      *)
+(*         *       GNU Lesser General Public License Version 2.1       *)
+(***********************************************************************)
+
+(* $Id$ *)
+
+(* Informal mathematical status of declarations *)
+
+(* Kinds used at parsing time *)
+
+type theorem_kind =
+  | Theorem
+  | Lemma
+  | Fact
+  | Remark
+
+type locality_flag = (*bool (* local = true; global = false *)*)
+  | Local
+  | Global
+
+type strength = locality_flag (* For compatibility *)
+
+type type_as_formula_kind = Definitional | Logical
+
+(* [assumption_kind] 
+
+                |  Local      | Global
+   ------------------------------------
+   Definitional |  Variable   | Parameter
+   Logical      |  Hypothesis | Axiom
+*)
+type assumption_kind = locality_flag * type_as_formula_kind
+
+type definition_kind = locality_flag
+
+(* Kinds used in proofs *)
+
+type global_goal_kind =
+  | DefinitionBody
+  | Proof of theorem_kind
+
+type goal_kind =
+  | IsGlobal of global_goal_kind
+  | IsLocal
+
+(* Kinds used in library *)
+
+type local_theorem_kind = LocalStatement
+
+type 'a mathematical_kind =
+  | IsAssumption of type_as_formula_kind
+  | IsDefinition
+  | IsProof of 'a
+
+type global_kind = theorem_kind mathematical_kind
+type local_kind = local_theorem_kind mathematical_kind
+
+(* Utils *)
+
+let theorem_kind_of_goal_kind = function
+  | DefinitionBody -> IsDefinition
+  | Proof s -> IsProof s
+
-- 
cgit v1.2.3