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 /proofs | |
| parent | 07078458b164ba54decd6c6e9bd059d1d1b6ec8f (diff) | |
Solve universe error with SSR 'rewrite !term'
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 = |