diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-08-31 15:48:30 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-08-31 15:48:30 +0200 |
| commit | 5639933c1b8ad7cf96ec592eb3104aa8282f16f5 (patch) | |
| tree | 36e68ca1d3dfe664469edd8f1ecb1f46396312e0 /vernac/command.ml | |
| parent | 13fb8de9aff07e4346ca4bdc866507503e9be12e (diff) | |
| parent | 6b4d8df891ff964fb267eec54337a96ccc610ef3 (diff) | |
Merge PR #980: Adding combinators + a canonical renaming in List, Option, Name
Diffstat (limited to 'vernac/command.ml')
| -rw-r--r-- | vernac/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index a315ac14e..0d6fd24cd 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -241,7 +241,7 @@ let do_assumptions_unbound_univs (_, poly, _ as kind) nl l = else l in (* We intepret all declarations in the same evar_map, i.e. as a telescope. *) - let _,l = List.fold_map (fun (env,ienv) (is_coe,(idl,c)) -> + let _,l = List.fold_left_map (fun (env,ienv) (is_coe,(idl,c)) -> let t,imps = interp_assumption evdref env ienv [] c in let env = push_named_context (List.map (fun (_,id) -> LocalAssum (id,t)) idl) env in |