diff options
| -rw-r--r-- | toplevel/class.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 355cdbc9cf..9d288c81e4 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -94,6 +94,7 @@ let explain_coercion_error g = function let rec arity_sort (ctx,a) = match kind_of_term a with | Sort (Prop _ | Type _) -> List.length ctx + | _ -> raise Not_found let check_reference_arity ref = let t = Global.type_of_global ref in |