diff options
Diffstat (limited to 'toplevel/ind_tables.ml')
| -rw-r--r-- | toplevel/ind_tables.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/ind_tables.ml b/toplevel/ind_tables.ml index 44b87b0c68..9cbf5c1ceb 100644 --- a/toplevel/ind_tables.ml +++ b/toplevel/ind_tables.ml @@ -89,7 +89,7 @@ let scheme_object_table = let declare_scheme_object s aux f = (try check_ident ("ind"^s) with _ -> error ("Illegal induction scheme suffix: "^s)); - let key = if String.equal aux "" then s else aux in + let key = if String.is_empty aux then s else aux in try let _ = Hashtbl.find scheme_object_table key in (* let aux_msg = if aux="" then "" else " (with key "^aux^")" in*) |