diff options
| author |  Stephane Glondu <steph@glondu.net> | 2010-07-21 09:46:51 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2010-07-21 09:46:51 +0200 |
| commit | 5b7eafd0f00a16d78f99a27f5c7d5a0de77dc7e6 (patch) | |
| tree | 631ad791a7685edafeb1fb2e8faeedc8379318ae /dev/base_include | |
| parent | da178a880e3ace820b41d38b191d3785b82991f5 (diff) | |
Imported Upstream snapshot 8.3~beta0+13298
Diffstat (limited to 'dev/base_include')
| -rw-r--r-- | dev/base_include | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/dev/base_include b/dev/base_include index 711dcb2a..3a31230f 100644 --- a/dev/base_include +++ b/dev/base_include @@ -53,6 +53,7 @@ open Names open Term open Typeops +open Term_typing open Univ open Inductive open Indtypes @@ -89,6 +90,7 @@ open Evarutil open Tacred open Evd open Termops +open Namegen open Indrec open Typing open Inductiveops @@ -105,6 +107,8 @@ open Ppextend open Reserve open Syntax_def open Topconstr +open Prettyp +open Search open Clenvtac open Evar_refiner @@ -137,10 +141,15 @@ open Refine open Tacinterp open Tacticals open Tactics +open Eqschemes open Cerrors open Class open Command +open Indschemes +open Ind_tables +open Auto_ind_decl +open Lemmas open Coqinit open Coqtop open Discharge @@ -180,7 +189,7 @@ let constr_of_string s = open Declarations;; let constbody_of_string s = - let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_sp (path_of_string s))) in + let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in Option.get b.const_body;; (* Get the current goal *) |