diff options
| author | Hugo Herbelin | 2015-11-07 22:48:15 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-12-05 09:34:02 +0100 |
| commit | caeba655b78a0107c1988e5377cdd11fa91c5ea2 (patch) | |
| tree | ee6860df02174ae3836a18c331858a655f2bfc12 /tactics | |
| parent | 2e3ee15b03cf4b7428e1a7453385d79f434ec4a7 (diff) | |
Experimenting removing strong normalization of the mid-statement in tactic cut.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index a2275b08fb..c76aeb4a88 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1031,6 +1031,8 @@ let map_induction_arg f = function (* tactic "cut" (actually modus ponens) *) (****************************************) +let normalize_cut = false + let cut c = Proofview.Goal.enter { enter = begin fun gl -> let env = Proofview.Goal.env gl in @@ -1049,7 +1051,7 @@ let cut c = if is_sort then let id = next_name_away_with_default "H" Anonymous (Tacmach.New.pf_ids_of_hyps gl) in (** Backward compat: normalize [c]. *) - let c = local_strong whd_betaiota sigma c in + let c = if normalize_cut then local_strong whd_betaiota sigma c else c in Proofview.Refine.refine ~unsafe:true { run = begin fun h -> let Sigma (f, h, p) = Evarutil.new_evar ~principal:true env h (mkArrow c (Vars.lift 1 concl)) in let Sigma (x, h, q) = Evarutil.new_evar env h c in |