diff options
| author | Matthieu Sozeau | 2016-05-09 18:31:01 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-07-04 15:55:12 +0200 |
| commit | 71d4c435e42c24c21ae43f0ddcc7a71bee1009f5 (patch) | |
| tree | e59d18f6e134deb95f2a1b4e00c21ae287784e15 /kernel | |
| parent | ee8009e05d3e782ee6333d0054ee2fce5cda89a4 (diff) | |
congruence: Restrict refreshing to Set
Because refreshing Prop is not semantics-preserving,
the new universe is >= Set, so cannot be minimized to Prop
afterwards.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/univ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index 117bc4e5fd..2cc57c38ca 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -754,7 +754,7 @@ let is_set_arc u = Level.is_set u.univ let is_prop_arc u = Level.is_prop u.univ exception AlreadyDeclared - + let add_universe vlev strict g = try let _arcv = UMap.find vlev g in |