From 187210bf8c6d4510b2228fbe4439cd23108c98a1 Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 26 Nov 2012 15:52:25 +0000
Subject: Small cleaning of interface in Univ

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16006 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/evd.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping/evd.ml')

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index 98f8230a6..1c9573ca3 100644
--- a/pretyping/evd.ml
+++ b/pretyping/evd.ml
@@ -499,7 +499,7 @@ let collect_evars c =
 let new_univ_variable ({ evars = (sigma,(us,sm)) } as d) =
   let u = Termops.new_univ_level () in
   let us' = Univ.UniverseLSet.add u us in
-    ({d with evars = (sigma, (us', sm))}, Univ.make_universe u)
+    ({d with evars = (sigma, (us', sm))}, Univ.Universe.make u)
   
 let new_sort_variable d =
   let (d', u) = new_univ_variable d in
-- 
cgit v1.2.3