diff options
Diffstat (limited to 'pretyping/cases.ml')
-rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 60e3025b4..2910774db 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -2135,7 +2135,7 @@ let abstract_tomatch env tomatchs tycon = let build_dependent_signature env evars avoid tomatchs arsign = let avoid = ref avoid in let arsign = List.rev arsign in - let allnames = List.rev (List.map (List.map pi1) arsign) in + let allnames = List.rev_map (List.map pi1) arsign in let nar = List.fold_left (fun n names -> List.length names + n) 0 allnames in let eqs, neqs, refls, slift, arsign' = List.fold_left2 |