InferCumulativity
val infer_inductive : env_params:Environ.env -> env_ar_par:Environ.env -> arities:Constr.t list -> ctors:Constr.t list list -> (Univ.Level.t * UVars.Variance.t option) array -> UVars.Variance.t array