diff options
| author | letouzey | 2012-10-16 16:24:23 +0000 |
|---|---|---|
| committer | letouzey | 2012-10-16 16:24:23 +0000 |
| commit | 15daaa856a6dd1f97845c4f24fe27eaf4cdbdda0 (patch) | |
| tree | 0b5a33550e30f286ef65e7c12ea452c2b86da409 /tactics/extraargs.ml4 | |
| parent | 3b5927180128a4e8f10f7437641ff3af220194b3 (diff) | |
Split Tacinterp in 3 files : Tacsubst, Tacintern and Tacinterp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15896 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/extraargs.ml4')
| -rw-r--r-- | tactics/extraargs.ml4 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tactics/extraargs.ml4 b/tactics/extraargs.ml4 index e0ba730cdc..5c2746986d 100644 --- a/tactics/extraargs.ml4 +++ b/tactics/extraargs.ml4 @@ -99,9 +99,9 @@ let pr_globc _prc _prlc _prtac (_,glob) = Printer.pr_glob_constr glob let interp_glob ist gl (t,_) = Tacmach.project gl , (ist,t) -let glob_glob = Tacinterp.intern_constr +let glob_glob = Tacintern.intern_constr -let subst_glob = Tacinterp.subst_glob_constr_and_expr +let subst_glob = Tacsubst.subst_glob_constr_and_expr ARGUMENT EXTEND glob PRINTED BY pr_globc @@ -138,11 +138,11 @@ let pr_hloc = pr_loc_place () () () let intern_place ist = function ConclLocation () -> ConclLocation () - | HypLocation (id,hl) -> HypLocation (intern_hyp ist id,hl) + | HypLocation (id,hl) -> HypLocation (Tacintern.intern_hyp ist id,hl) let interp_place ist gl = function ConclLocation () -> ConclLocation () - | HypLocation (id,hl) -> HypLocation (interp_hyp ist gl id,hl) + | HypLocation (id,hl) -> HypLocation (Tacinterp.interp_hyp ist gl id,hl) let interp_place ist gl p = Tacmach.project gl , interp_place ist gl p |