diff options
author | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-07 19:48:17 +0000 |
---|---|---|
committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-12-07 19:48:17 +0000 |
commit | 7d37a17370cfdfcc13afde93f5943ae53ea4d599 (patch) | |
tree | a091d8593d4fd110b4fe5612d9d300705abe84a9 /parsing | |
parent | 22cb4d34d7f67eb98c737b076a4ecbbf800bdc55 (diff) |
* added subst_evaluable_reference
* the Unfold hints of auto/eauto now use evaluable_global_references in place
of global_references
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6428 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/printer.ml | 5 | ||||
-rw-r--r-- | parsing/printer.mli | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index dcaac5697..84734351f 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -136,6 +136,11 @@ let pr_existential env ev = prterm_env env (mkEvar ev) let pr_inductive env ind = prterm_env env (mkInd ind) let pr_constructor env cstr = prterm_env env (mkConstruct cstr) let pr_global = pr_global Idset.empty +let pr_evaluable_reference ref = + let ref' = match ref with + | EvalConstRef const -> ConstRef const + | EvalVarRef sp -> VarRef sp in + pr_global ref' let pr_rawterm t = if !Options.v7 then gentermpr (Termast.ast_of_rawconstr t) diff --git a/parsing/printer.mli b/parsing/printer.mli index 22b5daa17..01b691a13 100644 --- a/parsing/printer.mli +++ b/parsing/printer.mli @@ -45,6 +45,7 @@ val pr_existential : env -> existential -> std_ppcmds val pr_constructor : env -> constructor -> std_ppcmds val pr_inductive : env -> inductive -> std_ppcmds val pr_global : global_reference -> std_ppcmds +val pr_evaluable_reference : evaluable_global_reference -> std_ppcmds val pr_pattern : constr_pattern -> std_ppcmds val pr_pattern_env : env -> names_context -> constr_pattern -> std_ppcmds |