aboutsummaryrefslogtreecommitdiff
path: root/pretyping/inductiveops.ml
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2018-10-07 19:19:11 +0200
committerPierre-Marie Pédrot2018-10-07 19:19:11 +0200
commit9a13a86115823a24738489f0b11b692f4ed065ad (patch)
tree4b2dc62bab2cc85f841a84cbfadb7de5a5fbb532 /pretyping/inductiveops.ml
parentd6d6291b4929bee8122d486aec15a57e5607ff18 (diff)
parent53870b7f6890a593d1da93706f3d020a79d226e5 (diff)
Merge PR #8493: [api] Remove (most) 8.9 deprecated objects.
Diffstat (limited to 'pretyping/inductiveops.ml')
-rw-r--r--pretyping/inductiveops.ml4
1 files changed, 0 insertions, 4 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml
index 0fa573b9a6..ea222397a8 100644
--- a/pretyping/inductiveops.ml
+++ b/pretyping/inductiveops.ml
@@ -269,10 +269,6 @@ let allowed_sorts env (kn,i as ind) =
let (mib,mip) = Inductive.lookup_mind_specif env ind in
mip.mind_kelim
-let projection_nparams_env _ p = Projection.npars p
-
-let projection_nparams p = Projection.npars p
-
let has_dependent_elim mib =
match mib.mind_record with
| PrimRecord _ -> mib.mind_finite == BiFinite