diff options
author | Samuel Mimram <smimram@debian.org> | 2008-07-25 15:12:53 +0200 |
---|---|---|
committer | Samuel Mimram <smimram@debian.org> | 2008-07-25 15:12:53 +0200 |
commit | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (patch) | |
tree | dabcac548e299fee1da464c93b3dba98484f45b1 /dev/base_include | |
parent | 2281410e38ef99d025ea77194585a9bc019fdaa9 (diff) |
Imported Upstream version 8.2~beta3+dfsgupstream/8.2.beta3+dfsg
Diffstat (limited to 'dev/base_include')
-rw-r--r-- | dev/base_include | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/dev/base_include b/dev/base_include index b7fa38ea..398f60d2 100644 --- a/dev/base_include +++ b/dev/base_include @@ -19,6 +19,7 @@ #install_printer (* identifier *) ppid;; #install_printer (* identifier *) ppidset;; +#install_printer (* Intset.t *) ppintset;; #install_printer (* label *) pplab;; #install_printer (* mod_self_id *) ppmsid;; #install_printer (* mod_bound_id *) ppmbid;; @@ -31,6 +32,9 @@ #install_printer (* constr *) print_pure_constr;; #install_printer (* patch *) ppripos;; #install_printer (* values *) ppvalues;; +#install_printer (* Idpred.t *) pp_idpred;; +#install_printer (* Cpred.t *) pp_cpred;; +#install_printer (* transparent_state *) pp_transparent_state;; #install_printer ppzipper;; #install_printer ppstack;; #install_printer ppatom;; @@ -38,6 +42,7 @@ #install_printer ppvblock;; #install_printer (* bigint *) ppbigint;; #install_printer (* loc *) pploc;; +#install_printer (* substitution *) prsubst;; (* Open main files *) @@ -63,12 +68,14 @@ open Pattern open Cbv open Classops open Pretyping +open Pretyping.Default +open Pretyping.Default.Cases open Cbv open Classops -open Pretyping open Clenv open Rawterm open Coercion +open Coercion.Default open Recordops open Detyping open Reductionops @@ -82,6 +89,7 @@ open Indrec open Typing open Inductiveops open Unification +open Matching open Constrextern open Constrintern @@ -167,7 +175,7 @@ open Declarations;; let constbody_of_string s = let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_sp (path_of_string s))) in - Util.out_some b.const_body;; + Option.get b.const_body;; (* Get the current goal *) |