Fix set_leq_sort

mattam82 · Jan 28, 2025 · 72484f2 · 72484f2
1 parent 2a04352
commit 72484f2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/equations_common.ml b/src/equations_common.ml
@@ -1090,10 +1090,10 @@ let evd_comb1 f evd x =
 
 (* Universe related functions *)
 
-[%%if rocq = "9.0"]
-let set_leq_sort env = Evd.set_leq_sort
+[%%if rocq = "9.1"]
+let set_leq_sort _ = Evd.set_leq_sort
 [%%else]
-let set_leq_sort env = Evd.set_leq_sort
+let set_leq_sort env = Evd.set_leq_sort env
 [%%endif]
 
 let nonalgebraic_universe_level_of_universe env sigma u =