diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 17:24:59 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 17:24:59 +0100 |
| commit | 78551857a41a57607ecfb3fd010e0a9755f47cea (patch) | |
| tree | 431275a5729dddb5ca4fa2d9199b8640aa4f45af /tactics/tactics.ml | |
| parent | dffc6a20eb1a0636904164e00b5963ed96f774c4 (diff) | |
| parent | 2f60c1bab0ce391aa60cc6c387b9d36a1ae70905 (diff) | |
Merge PR #6791: Removing compatibility support for versions older than 8.5.
Diffstat (limited to 'tactics/tactics.ml')
| -rw-r--r-- | tactics/tactics.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 94622114d..61ca3e319 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -5121,16 +5121,10 @@ module New = struct open Locus let reduce_after_refine = - let onhyps = - (** We reduced everywhere in the hyps before 8.6 *) - if Flags.version_compare !Flags.compat_version Flags.V8_5 == 0 - then None - else Some [] - in reduce (Lazy {rBeta=true;rMatch=true;rFix=true;rCofix=true; rZeta=false;rDelta=false;rConst=[]}) - {onhyps; concl_occs=AllOccurrences } + {onhyps = Some []; concl_occs = AllOccurrences } let refine ~typecheck c = Refine.refine ~typecheck c <*> |