aboutsummaryrefslogtreecommitdiff
path: root/engine/evd.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2018-11-07 15:25:59 +0100
committerGaëtan Gilbert2018-11-12 09:58:39 +0100
commit9bd403ec1b6cedf0542e193774a7af52b27c0a1b (patch)
treef486e4f160724b17d1843755ae86fc0125ff192f /engine/evd.ml
parent186d67228018a84a93de024971356249ddbde668 (diff)
Fix #8908: incorrect refresh of algebraic universes.
Diffstat (limited to 'engine/evd.ml')
-rw-r--r--engine/evd.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/engine/evd.ml b/engine/evd.ml
index b3848e1b5b..6345046431 100644
--- a/engine/evd.ml
+++ b/engine/evd.ml
@@ -891,6 +891,9 @@ let make_flexible_variable evd ~algebraic u =
{ evd with universes =
UState.make_flexible_variable evd.universes ~algebraic u }
+let make_nonalgebraic_variable evd u =
+ { evd with universes = UState.make_nonalgebraic_variable evd.universes u }
+
(****************************************)
(* Operations on constants *)
(****************************************)