diff options
| author | herbelin | 2005-12-23 10:07:04 +0000 |
|---|---|---|
| committer | herbelin | 2005-12-23 10:07:04 +0000 |
| commit | 505bcbaa579e01e9d79979e649207d1735a511fa (patch) | |
| tree | a93474dd6eec0c55f1e4c831aaf3cf4711904b0e /parsing/pptactic.ml | |
| parent | 8d4ca0e78b9ba99b6ff1f9e00e3ea9a4e70e3fd7 (diff) | |
Correction printer des Tactic Notation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7709 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
| -rw-r--r-- | parsing/pptactic.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 3f02cf309e..d5c42a04d7 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -42,6 +42,8 @@ let declare_extra_tactic_pprule for_v8 s (tags,prods) = Hashtbl.add prtac_tab_v7 (s,tags) prods; if for_v8 then Hashtbl.add prtac_tab (s,tags) prods +let exists_extra_tactic_pprule s tags = Hashtbl.mem prtac_tab_v7 (s,tags) + type 'a raw_extra_genarg_printer = (constr_expr -> std_ppcmds) -> (constr_expr -> std_ppcmds) -> |