diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-09-26 20:15:20 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-09-26 20:15:20 +0000 |
| commit | ee2f85396fa0cef65bc4295b5ac6c259e83df134 (patch) | |
| tree | 490a24b0a73e9281de4c26457d17851e0db7c6c3 /tactics/g_rewrite.ml4 | |
| parent | 5ebb6f58d2906e53b0de5c7f687dd6e338aa62a2 (diff) | |
Opacifying the type of strategies.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16805 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/g_rewrite.ml4')
| -rw-r--r-- | tactics/g_rewrite.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/g_rewrite.ml4 b/tactics/g_rewrite.ml4 index e52a79b55..f4c5aeda8 100644 --- a/tactics/g_rewrite.ml4 +++ b/tactics/g_rewrite.ml4 @@ -108,8 +108,8 @@ END (* By default the strategy for "rewrite_db" is top-down *) -let db_strat db = Strategies.td (Strategies.hints db) -let cl_rewrite_clause_db db cl = cl_rewrite_clause_strat (db_strat db) cl +let db_strat db = StratUnary ("topdown", StratHints (false, db)) +let cl_rewrite_clause_db db = cl_rewrite_clause_strat (strategy_of_ast (db_strat db)) TACTIC EXTEND rewrite_strat | [ "rewrite_strat" rewstrategy(s) "in" hyp(id) ] -> [ cl_rewrite_clause_strat s (Some id) ] |