diff options
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) |