diff options
| author | herbelin | 2001-01-19 18:33:07 +0000 |
|---|---|---|
| committer | herbelin | 2001-01-19 18:33:07 +0000 |
| commit | b625a7b4a3350cc9d6e23f03e0f0ef30e61d0450 (patch) | |
| tree | 3ef26724be0bcf5e965d4fc1dd33253083e11501 /parsing | |
| parent | 061fad5d12992b51a41aa593aefd99e9e820ea0b (diff) | |
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
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/stdlib.ml | 17 | ||||
| -rw-r--r-- | parsing/stdlib.mli | 15 |
2 files changed, 32 insertions, 0 deletions
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 diff --git a/parsing/stdlib.mli b/parsing/stdlib.mli new file mode 100644 index 0000000000..7bb890d18d --- /dev/null +++ b/parsing/stdlib.mli @@ -0,0 +1,15 @@ + +(* $Id$ *) + +open Term + +(*s This module collects the global references of the standard library + used in ocaml files *) + +(* Natural numbers *) +val glob_nat : global_reference +val glob_O : global_reference +val glob_S : global_reference + +(* Special variable for pretty-printing of constant naturals *) +val glob_My_special_variable_nat : global_reference |