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 /pretyping/cases.ml | |
parent | 13fb8de9aff07e4346ca4bdc866507503e9be12e (diff) | |
parent | 6b4d8df891ff964fb267eec54337a96ccc610ef3 (diff) |
Merge PR #980: Adding combinators + a canonical renaming in List, Option, Name
Diffstat (limited to 'pretyping/cases.ml')
-rw-r--r-- | pretyping/cases.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 1a879f911..63775d737 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1753,14 +1753,14 @@ let build_inversion_problem loc env sigma tms t = let cstr,u = destConstruct sigma f in let n = constructor_nrealargs_env env cstr in let l = List.lastn n (Array.to_list v) in - let l,acc = List.fold_map' reveal_pattern l acc in + let l,acc = List.fold_right_map reveal_pattern l acc in CAst.make (PatCstr (cstr,l,Anonymous)), acc | _ -> make_patvar t acc in let rec aux n env acc_sign tms acc = match tms with | [] -> [], acc_sign, acc | (t, IsInd (_,IndType(indf,realargs),_)) :: tms -> - let patl,acc = List.fold_map' reveal_pattern realargs acc in + let patl,acc = List.fold_right_map reveal_pattern realargs acc in let pat,acc = make_patvar t acc in let indf' = lift_inductive_family n indf in let sign = make_arity_signature env sigma true indf' in |