diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-04 01:20:22 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-13 14:10:04 +0200 |
| commit | 02372d2ce62bec843b34ca65f87f6619871fe931 (patch) | |
| tree | 3f6ee0597032d58bdc7d0e91a574e414ae23ce01 /engine | |
| parent | 3cab61587008d26405760a71bfd362f13a386701 (diff) | |
univ minimization: comment [enforce_uppers]
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/universes.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/engine/universes.ml b/engine/universes.ml index 764164c52..e98708724 100644 --- a/engine/universes.ml +++ b/engine/universes.ml @@ -811,6 +811,11 @@ let not_lower lower (d,l) = (** No constraint existing on l *) true) l exception UpperBoundedAlg +(** [enforce_uppers upper lbound cstrs] interprets [upper] as upper + constraints to [lbound], adding them to [cstrs]. + + @raise UpperBoundedAlg if any [upper] constraints are strict and + [lbound] algebraic. *) let enforce_uppers upper lbound cstrs = List.fold_left (fun cstrs (d, r) -> if d == Univ.Le then |