diff options
| author | Emilio Jesus Gallego Arias | 2019-04-02 12:15:58 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-04-02 12:15:58 +0200 |
| commit | 32dbd76a5df76491e029583abf247524f8d26c44 (patch) | |
| tree | 25185fd3ad82c6c5e2e39ed35c0c2eccf5064ea1 /tactics | |
| parent | 424c1973e96dfbf3b2e3245d735853ffa9600373 (diff) | |
| parent | bf840bafc19deba67e5270dfd31b8b6662b73132 (diff) | |
Merge PR #9659: Fix #9652: rewrite fails to detect lack of progress
Ack-by: SkySkimmer
Reviewed-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 88ce9868af..412fbbfd1b 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -257,7 +257,7 @@ let tclNOTSAMEGOAL tac = Proofview.Goal.goals >>= fun gls -> let check accu gl' = gl' >>= fun gl' -> - let accu = accu || Goal.V82.same_goal sigma ev (project gl') (goal gl') in + let accu = accu || Proofview.Progress.goal_equal sigma ev (project gl') (goal gl') in Proofview.tclUNIT accu in Proofview.Monad.List.fold_left check false gls >>= fun has_same -> |