diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-01-29 14:20:00 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:57 +0200 |
| commit | c60dbe680933a928726d590f1134b88626771d22 (patch) | |
| tree | ad21a0b9188e80d29aab797f99f53792464f3732 /toplevel | |
| parent | 8a905458039b631165d068bbf62f88e11eb36eb1 (diff) | |
Fix context forgetting universes (temporary, the fix is not exactly right).
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 2b00a6d86..35ad31f0a 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -337,7 +337,7 @@ let context l = in let uctx = Evd.get_universe_context_set !evars in let fn status (id, b, t) = - let uctx = Universes.shrink_universe_context uctx (Universes.universes_of_constr t) in + (* let uctx = Universes.shrink_universe_context uctx (Universes.universes_of_constr t) in *) if Lib.is_modtype () && not (Lib.sections_are_opened ()) then let uctx = Univ.ContextSet.to_context uctx in let decl = (ParameterEntry (None,false,(t,uctx),None), IsAssumption Logical) in |