diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-11 14:43:44 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-30 15:20:26 +0200 |
| commit | a52a2d2110fcf20d532a2005c1957cba0d2c4043 (patch) | |
| tree | e1c716b843baaa741ce1437e9a06bcdc6d4f9f15 /engine/univops.mli | |
| parent | 853917631d58226d9669af64203901e2b19ed304 (diff) | |
Fix restrict_universe_context
Diffstat (limited to 'engine/univops.mli')
| -rw-r--r-- | engine/univops.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/engine/univops.mli b/engine/univops.mli index d1585414c..0b37ab975 100644 --- a/engine/univops.mli +++ b/engine/univops.mli @@ -14,5 +14,8 @@ open Univ (** The universes of monomorphic constants appear. *) val universes_of_constr : Environ.env -> constr -> LSet.t -(** Shrink a universe context to a restricted set of variables *) +(** [restrict_universe_context (univs,csts) keep] restricts [univs] to + the universes in [keep]. The constraints [csts] are adjusted so + that transitive constraints between remaining universes (those in + [keep] and those not in [univs]) are preserved. *) val restrict_universe_context : ContextSet.t -> LSet.t -> ContextSet.t |