diff options
Diffstat (limited to 'tactics/evar_tactics.ml')
| -rw-r--r-- | tactics/evar_tactics.ml | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml index ece0104b2..1234fe72b 100644 --- a/tactics/evar_tactics.ml +++ b/tactics/evar_tactics.ml @@ -50,8 +50,11 @@ let instantiate n (ist,rawc) ido gl = tclNORMEVAR gl -let let_evar name typ gls = +open Proofview.Notations +let let_evar name typ = let src = (Loc.ghost,Evar_kinds.GoalEvar) in - let sigma',evar = Evarutil.new_evar gls.sigma (pf_env gls) ~src typ in - Refiner.tclTHEN (Refiner.tclEVARS sigma') - (Tactics.letin_tac None name evar None Locusops.nowhere) gls + Goal.env >>- fun env -> + Goal.defs >>- fun sigma -> + let sigma',evar = Evarutil.new_evar sigma env ~src typ in + Tacticals.New.tclTHEN (Proofview.V82.tactic (Refiner.tclEVARS sigma')) + (Tactics.letin_tac None name evar None Locusops.nowhere) |