diff options
| author | Andreas Lynge | 2019-07-06 21:17:20 +0200 |
|---|---|---|
| committer | Andreas Lynge | 2019-08-29 20:48:42 +0200 |
| commit | b335fccae5514ef738376354aa619e08bb221d5c (patch) | |
| tree | eddc15fb9eed82f4d554a5fc38c49c747dfbb8b5 /tactics/equality.ml | |
| parent | 07078458b164ba54decd6c6e9bd059d1d1b6ec8f (diff) | |
Solve universe error with SSR 'rewrite !term'
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 220b9bc475..1f125a3c59 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -255,7 +255,9 @@ let tclNOTSAMEGOAL tac = Proofview.Goal.goals >>= fun gls -> let check accu gl' = gl' >>= fun gl' -> - let accu = accu || Proofview.Progress.goal_equal sigma ev (project gl') (goal gl') in + let accu = accu || Proofview.Progress.goal_equal + ~evd:sigma ~extended_evd:(project gl') ev (goal gl') + in Proofview.tclUNIT accu in Proofview.Monad.List.fold_left check false gls >>= fun has_same -> |