diff options
| author | Matthieu Sozeau | 2015-09-23 19:01:31 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-02 15:54:11 +0200 |
| commit | c92946243ccb0b11cd138f040a5297979229c3f5 (patch) | |
| tree | c472cbbb8ffd32a9dbdc3971477b339abbfe26ef /pretyping | |
| parent | 91e01278de2420a64f1c8de03c0bc6e614577042 (diff) | |
Univs: fix after rebase (from_ctx/from_env)
Diffstat (limited to 'pretyping')
| -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 8243f96c16..842b87c57e 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 *) |