diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-13 12:23:40 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-06-13 13:10:06 +0200 |
commit | f8f65b0227056d49dc31174c89ea0da4427e3b56 (patch) | |
tree | 3ad7420cc165a442f92a7a2afca7431c5c0d721a /library/global.ml | |
parent | b94dcdd6e4bfac485ffaf9e11f8f3a5b0329ffa4 (diff) |
Less ocaml warnings.
Diffstat (limited to 'library/global.ml')
-rw-r--r-- | library/global.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/global.ml b/library/global.ml index 6c088e542..378e7aaa3 100644 --- a/library/global.ml +++ b/library/global.ml @@ -197,10 +197,10 @@ let universes_of_global env r = let cb = Environ.lookup_constant c env in Declareops.universes_of_constant cb | IndRef ind -> - let (mib, oib as specif) = Inductive.lookup_mind_specif env ind in + let (mib, oib) = Inductive.lookup_mind_specif env ind in mib.mind_universes | ConstructRef cstr -> - let (mib,oib as specif) = Inductive.lookup_mind_specif env (inductive_of_constructor cstr) in + let (mib,oib) = Inductive.lookup_mind_specif env (inductive_of_constructor cstr) in mib.mind_universes let universes_of_global gr = |