diff options
| author | Gaëtan Gilbert | 2019-10-09 15:29:39 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-19 11:26:25 +0200 |
| commit | ddcb5ebd626336382199d796ad2c850ac63073df (patch) | |
| tree | 76a16382bacfbd638fd5984ee5fff0cfb40dfa76 /kernel/safe_typing.ml | |
| parent | c5f2b14020ea1fb2b11321f1daa00abe8dec3477 (diff) | |
universes_of_private: return set instead of list of sets
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index fc55720583..98465c070b 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -320,10 +320,10 @@ let concat_private = SideEffects.concat let universes_of_private eff = let fold acc eff = match eff.seff_body.const_universes with - | Monomorphic ctx -> ctx :: acc + | Monomorphic ctx -> Univ.ContextSet.union ctx acc | Polymorphic _ -> acc in - List.fold_left fold [] (side_effects_of_private_constants eff) + List.fold_left fold Univ.ContextSet.empty (side_effects_of_private_constants eff) let env_of_safe_env senv = senv.env let env_of_senv = env_of_safe_env |