diff options
| author | Pierre-Marie Pédrot | 2014-06-18 12:04:42 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-06-18 15:10:23 +0200 |
| commit | 77839ae306380e99a8ceac0bf26ff86ec9159346 (patch) | |
| tree | fb2634db286be45a23a57a990e05eed8e9e6597e /pretyping | |
| parent | 4c79604793ddf9c3e717d762518200b5e7db4f35 (diff) | |
Code factorization in LMap.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 53d1a8a0e6..8b9631b4bd 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -966,7 +966,7 @@ let merge_uctx rigid uctx ctx' = | UnivRigid -> uctx | UnivFlexible b -> let uvars' = Univ.LMap.subst_union uctx.uctx_univ_variables - (Univ.LMap.of_set (Univ.ContextSet.levels ctx') None) in + (Univ.LMap.bind (fun _ -> None) (Univ.ContextSet.levels ctx')) in if b then { uctx with uctx_univ_variables = uvars'; uctx_univ_algebraic = Univ.LSet.union uctx.uctx_univ_algebraic |