diff options
| author | Pierre-Marie Pédrot | 2018-05-15 21:59:54 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-05-15 21:59:54 +0200 |
| commit | e95c5e6d92ba9ab776444ca1376d45c584acab50 (patch) | |
| tree | 2d1233b27a44c291448c1fb091a9683c23af05c4 /engine/uState.ml | |
| parent | 927b3826e645d428ebe3d8c6599c1f9e2bf79d46 (diff) | |
| parent | 96a357777e2e3c1273a61e0767bc04085d56835e (diff) | |
Merge PR #7465: Don't use ref universe_opt_subst in universe normalisation function
Diffstat (limited to 'engine/uState.ml')
| -rw-r--r-- | engine/uState.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/uState.ml b/engine/uState.ml index 6c8dbe3f44..df50bae86e 100644 --- a/engine/uState.ml +++ b/engine/uState.ml @@ -156,7 +156,7 @@ let process_universe_constraints ctx cstrs = let univs = ctx.uctx_universes in let vars = ref ctx.uctx_univ_variables in let weak = ref ctx.uctx_weak_constraints in - let normalize = normalize_univ_variable_opt_subst vars in + let normalize u = normalize_univ_variable_opt_subst !vars u in let nf_constraint = function | ULub (u, v) -> ULub (level_subst_of normalize u, level_subst_of normalize v) | UWeak (u, v) -> UWeak (level_subst_of normalize u, level_subst_of normalize v) |