From b625a7b4a3350cc9d6e23f03e0f0ef30e61d0450 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 19 Jan 2001 18:33:07 +0000
Subject: Nouveau module pour centraliser les chemins des constantes globales
 utilisées dans le code de Coq

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

(limited to 'parsing/stdlib.ml')

diff --git a/parsing/stdlib.ml b/parsing/stdlib.ml
new file mode 100644
index 0000000000..8c4e2bf681
--- /dev/null
+++ b/parsing/stdlib.ml
@@ -0,0 +1,17 @@
+
+(* $Id$ *)
+
+open Names
+open Term
+open Declare
+
+let nat_path = make_path ["Coq";"Init";"Datatypes"] (id_of_string "nat") CCI
+let myvar_path =
+  make_path ["Coq";"Arith";"Arith"] (id_of_string "My_special_variable") CCI
+
+let glob_nat = IndRef (nat_path,0)
+
+let glob_O = ConstructRef ((nat_path,0),1)
+let glob_S = ConstructRef ((nat_path,0),2)
+
+let glob_My_special_variable_nat = ConstRef myvar_path
-- 
cgit v1.2.3