diff options
| author | Pierre-Marie Pédrot | 2021-01-06 16:20:04 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-01-18 13:36:46 +0100 |
| commit | 875e410294503b03f0954c94164bd611a5682850 (patch) | |
| tree | b39f48ef592876c10d631850074362245153c8d4 /tactics | |
| parent | 5dcf8f4d0fb7419c07b9287db22f6ed6cbf000a4 (diff) | |
Move the two only calls to the strong combinator to their calling site.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index b40bdbc25e..aef6596e8f 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1244,8 +1244,6 @@ let force_destruction_arg with_evars env sigma c = (* tactic "cut" (actually modus ponens) *) (****************************************) -let normalize_cut = false - let cut c = Proofview.Goal.enter begin fun gl -> let env = Proofview.Goal.env gl in @@ -1260,8 +1258,6 @@ let cut c = | sigma, s -> let r = Sorts.relevance_of_sort s in let id = next_name_away_with_default "H" Anonymous (Tacmach.New.pf_ids_set_of_hyps gl) in - (* Backward compat: normalize [c]. *) - let c = if normalize_cut then strong whd_betaiota env sigma c else c in Proofview.tclTHEN (Proofview.Unsafe.tclEVARS sigma) (Refine.refine ~typecheck:false begin fun h -> let (h, f) = Evarutil.new_evar ~principal:true env h (mkArrow c r (Vars.lift 1 concl)) in |