diff options
| author | Hugo Herbelin | 2017-08-18 01:03:22 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2017-08-29 05:10:40 +0200 |
| commit | c7dd03f804fabde7b201677058b8e1b9c62a7793 (patch) | |
| tree | c9029c8fbba22296615b1311d802a68d31526b0a /vernac | |
| parent | 2ad320f630e138fc608af836a744a4704be42558 (diff) | |
Adapting code to renaming fold_map/fold_map' into fold_left_map/fold_right_map
(from module List).
Diffstat (limited to 'vernac')
| -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 e04bebe33b..b831b08f5d 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 |