diff options
| author | Matthieu Sozeau | 2014-10-16 17:55:45 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-10-16 17:55:45 +0200 |
| commit | 56f7e0db738982684cda88a7cda833acdaa21d1f (patch) | |
| tree | b70a9dcc1689f27d34877c8c9749dd66ed0cb982 | |
| parent | 1f7fd3c91d41d661587c90f10cacba4728f38dfc (diff) | |
Refresh to avoid algebraic universes on the right.
| -rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index e0b7624317..d131e2d33d 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -468,7 +468,8 @@ let weak_check env sigma deep newc origc = let t1 = Retyping.get_type_of env sigma newc in if deep then let t2 = Retyping.get_type_of env sigma origc in - snd (infer_conv ~pb:Reduction.CUMUL env sigma t1 t2) + let sigma, t2 = Evarsolve.refresh_universes ~onlyalg:true (Some false) env sigma t2 in + snd (infer_conv ~pb:Reduction.CUMUL env sigma t1 t2) else isSort (whd_betadeltaiota env sigma t1) |