Merge PR #14131: Check for existence before using `Global.lookup_constant` instead of catching `Not_found`

Reviewed-by: ppedrot

1 files changed, 1 insertions, 1 deletions

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index ddbd5fa0a7..13044958dc 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -23,7 +23,7 @@ open Context.Rel.Declaration
 
 type mind_specif = mutual_inductive_body * one_inductive_body
 
-(* raise Not_found if not an inductive type *)
+(* raises an anomaly if not an inductive type *)
 let lookup_mind_specif env (kn,tyi) =
   let mib = Environ.lookup_mind kn env in
   if tyi >= Array.length mib.mind_packets then