diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-02-24 11:39:18 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-02-26 14:53:08 +0100 |
commit | 2145e0274482017dc8e16c8ee774bc422be930e1 (patch) | |
tree | e54f1aaeb651436449ecca3c2b7c721915c3c2fb /kernel/univ.ml | |
parent | 0499f51cedb38eba6b8ecd01ce94ddfb1b6ae9c8 (diff) |
univ: removing dead code
Diffstat (limited to 'kernel/univ.ml')
-rw-r--r-- | kernel/univ.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 44d487c1a..062196b39 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -892,10 +892,6 @@ let sort_universes orig = (* Temporary inductive type levels *) -let fresh_level = - let n = ref 0 in - fun () -> incr n; UniverseLevel.Level (!n, Names.DirPath.empty) - let fresh_local_univ, set_remote_fresh_local_univ = RemoteCounter.new_counter 0 ~incr:((+) 1) ~build:(fun n -> Atom (UniverseLevel.Level (n, Names.DirPath.empty))) |