diff options
author | 2015-09-23 19:01:31 +0200 | |
---|---|---|
committer | 2015-10-02 15:54:11 +0200 | |
commit | c92946243ccb0b11cd138f040a5297979229c3f5 (patch) | |
tree | c472cbbb8ffd32a9dbdc3971477b339abbfe26ef /pretyping/evd.ml | |
parent | 91e01278de2420a64f1c8de03c0bc6e614577042 (diff) |
Univs: fix after rebase (from_ctx/from_env)
Diffstat (limited to 'pretyping/evd.ml')
-rw-r--r-- | pretyping/evd.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 8243f96c1..842b87c57 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -1136,9 +1136,10 @@ let make_evar_universe_context e l = match l with | None -> uctx | Some us -> - List.fold_left (fun uctx (loc,id) -> - fst (uctx_new_univ_variable univ_rigid (Some (Id.to_string id)) uctx)) - uctx us + List.fold_left + (fun uctx (loc,id) -> + fst (uctx_new_univ_variable univ_rigid (Some (Id.to_string id)) true uctx)) + uctx us (****************************************) (* Operations on constants *) |