diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-12-24 17:25:22 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-10-26 15:33:12 +0200 |
| commit | 925c434592597a34cd7ef4efb5e18a43e197bd96 (patch) | |
| tree | 8c1c865d25991e06d5a281ff9ea7df106a04caa7 /tactics/equality.ml | |
| parent | 0897d0f642c19419c513f9609782436bebf28f5b (diff) | |
Delay use of flag "Discriminate Introduction" from interp to execution time.
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index e33dd2e5e..bb2de1904 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1069,9 +1069,8 @@ let discr with_evars = onEquality with_evars discrEq let discrClause with_evars = onClause (discrSimpleClause with_evars) let discrEverywhere with_evars = -(* - tclORELSE -*) + tclTHEN (Proofview.tclUNIT ()) + (* Delay the interpretation of side-effect *) (if discr_do_intro () then (tclTHEN (tclREPEAT introf) |