diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.ml | 2 | ||||
| -rw-r--r-- | pretyping/program.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 358cc2f034..7516951e88 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1958,7 +1958,7 @@ let vars_of_ctx ctx = [hole; GVar (Loc.ghost, prev)])) :: vars | _ -> match na with - Anonymous -> raise (Invalid_argument "vars_of_ctx") + Anonymous -> invalid_arg "vars_of_ctx" | Name n -> n, GVar (Loc.ghost, n) :: vars) ctx (Id.of_string "vars_of_ctx_error", []) in List.rev y 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 |