diff options
| author | Pierre-Marie Pédrot | 2019-08-30 15:35:48 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-08-30 15:35:48 +0200 |
| commit | 1f74267d7e4affe14dbafc1a6f1e6f3f465f75a8 (patch) | |
| tree | a51fd4fd1d141994653ff8fcf9669416f4f3cd06 /proofs | |
| parent | 38aa59e1aa2edeca7dabe4275790295559751e72 (diff) | |
| parent | b335fccae5514ef738376354aa619e08bb221d5c (diff) | |
Merge PR #10714: Solve universe error with SSR 'rewrite !term'
Reviewed-by: ppedrot
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index 888c4785df..f95a904a5f 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -91,7 +91,8 @@ module V82 = struct let weak_progress glss gls = match glss.Evd.it with - | [ g ] -> not (Proofview.Progress.goal_equal glss.Evd.sigma g gls.Evd.sigma gls.Evd.it) + | [ g ] -> not (Proofview.Progress.goal_equal ~evd:gls.Evd.sigma + ~extended_evd:glss.Evd.sigma gls.Evd.it g) | _ -> true let progress glss gls = |