diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-12 15:04:06 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-12 15:20:36 +0200 |
| commit | bda7852cb0896727389935f420eec0e8e3315cf7 (patch) | |
| tree | dc03858224a7dfbd3b92c0aee016356ab9dda6ce /tactics/auto.ml | |
| parent | a4db087565dd2ecfa3bcc022277bed1a3c868fd3 (diff) | |
Passing some tactics to the new monad type.
Diffstat (limited to 'tactics/auto.ml')
| -rw-r--r-- | tactics/auto.ml | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index bcf5e2947..b9c52144e 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -1172,11 +1172,12 @@ let exact poly (c,clenv) = else let ctx = Evd.evar_universe_context clenv.evd in ctx, c - in - fun gl -> - tclTHEN (Refiner.tclEVARS (Evd.merge_universe_context (project gl) ctx)) - (exact_check c') gl - + in + Proofview.Goal.raw_enter begin fun gl -> + let sigma = Evd.merge_universe_context (Proofview.Goal.sigma gl) ctx in + Tacticals.New.tclTHEN (Proofview.V82.tclEVARS sigma) (exact_check c') + end + (* Util *) let expand_constructor_hints env sigma lems = @@ -1465,7 +1466,7 @@ and tac_of_hint dbg db_list local_db concl (flags, ({pat=p; code=t;poly=poly})) match t with | Res_pf (c,cl) -> Proofview.V82.tactic (unify_resolve_gen poly flags (c,cl)) | ERes_pf _ -> Proofview.V82.tactic (fun gl -> error "eres_pf") - | Give_exact (c, cl) -> Proofview.V82.tactic (exact poly (c, cl)) + | Give_exact (c, cl) -> exact poly (c, cl) | Res_pf_THEN_trivial_fail (c,cl) -> Tacticals.New.tclTHEN (Proofview.V82.tactic (unify_resolve_gen poly flags (c,cl))) |