diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-05 15:15:58 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-09 16:04:42 +0200 |
| commit | e824d429363262a9ff9db117282fe15289b5ab59 (patch) | |
| tree | cd319518235243c63835cd646d4b0536f2a656bd /tactics/rewrite.ml | |
| parent | 5eff644c658d1765ba73cd9e73c5bd7819c7d644 (diff) | |
A version of convert_concl and convert_hyp in new proof engine.
Not very optimized though (if we apply convert_hyp on any hyp, a new
evar will be generated for every different hyp...).
Diffstat (limited to 'tactics/rewrite.ml')
| -rw-r--r-- | tactics/rewrite.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index 63885318c..0207b9b0f 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -1543,7 +1543,7 @@ let cl_rewrite_clause_newtac ?abs strat clause = | Some id, (undef, Some p, newt) -> assert_replacing id newt (new_refine (undef, p)) | Some id, (undef, None, newt) -> - Proofview.V82.tactic (Tacmach.convert_hyp_no_check (id, None, newt)) + convert_hyp_no_check (id, None, newt) | None, (undef, Some p, newt) -> Proofview.Goal.enter begin fun gl -> let env = Proofview.Goal.env gl in @@ -1555,7 +1555,7 @@ let cl_rewrite_clause_newtac ?abs strat clause = Proofview.Refine.refine make end | None, (undef, None, newt) -> - Proofview.V82.tactic (Tacmach.convert_concl_no_check newt DEFAULTcast) + convert_concl_no_check newt DEFAULTcast in Proofview.Goal.nf_enter begin fun gl -> let concl = Proofview.Goal.concl gl in |