diff options
Diffstat (limited to 'pretyping/program.ml')
| -rw-r--r-- | pretyping/program.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/program.ml b/pretyping/program.ml index a701fdef4a..6d913060b1 100644 --- a/pretyping/program.ml +++ b/pretyping/program.ml @@ -55,7 +55,7 @@ let mk_coq_not x = mkApp (delayed_force coq_not, [| x |]) let unsafe_fold_right f = function hd :: tl -> List.fold_right f tl hd - | [] -> raise (Invalid_argument "unsafe_fold_right") + | [] -> invalid_arg "unsafe_fold_right" let mk_coq_and l = let and_typ = delayed_force coq_and in |