From bc842a94b18f3a09ea1127b0bd3e08599dd97305 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Sat, 6 Jun 2020 21:21:50 +0200
Subject: Fix uncaught NotArity in inductive type

Fixes #12390
---
 vernac/comInductive.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vernac/comInductive.ml')

diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml
index 4242f06844..95489c9132 100644
--- a/vernac/comInductive.ml
+++ b/vernac/comInductive.ml
@@ -117,7 +117,7 @@ let intern_ind_arity env sigma ind =
 let pretype_ind_arity env sigma (loc, c, impls, pseudo_poly) =
   let sigma,t = understand_tcc env sigma ~expected_type:IsType c in
   match Reductionops.sort_of_arity env sigma t with
-  | exception Invalid_argument _ ->
+  | exception Reduction.NotArity ->
     user_err ?loc (str "Not an arity")
   | s ->
     let concl = match pseudo_poly with
-- 
cgit v1.2.3