diff options
| author | Maxime Dénès | 2019-12-13 10:47:05 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2019-12-13 10:47:05 +0100 |
| commit | a07480b5150d23b89a2a9acc09c8e506db9e73da (patch) | |
| tree | 7ec5ab62f609e085c1e9f4ff51cf5a4b1112484e /engine | |
| parent | dcbfdb7356e4f0a02ad10feb211a9952ae2dc8ba (diff) | |
| parent | ccae6b2053970a0bd587bb48c2d30fc235de4118 (diff) | |
Merge PR #10657: restrict minimization to set to flexibles
Reviewed-by: mattam82
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/univMinim.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/univMinim.ml b/engine/univMinim.ml index 30fdd28997..fc0770cf75 100644 --- a/engine/univMinim.ml +++ b/engine/univMinim.ml @@ -276,7 +276,7 @@ let normalize_context_set ~lbound g ctx us algs weak = Constraint.partition (fun (l,d,r) -> d == Le && (Level.equal l lbound || Level.is_sprop l)) csts in let smallles = if get_set_minimization () - then Constraint.filter (fun (l,d,r) -> LSet.mem r ctx && not (Level.is_sprop l)) smallles + then Constraint.filter (fun (l,d,r) -> LMap.mem r us && not (Level.is_sprop l)) smallles else Constraint.empty in let csts, partition = |