diff options
Diffstat (limited to 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 7c371c0119..3e43eee4dd 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -120,9 +120,6 @@ let constructor_nrealhyps env (ind,j) = let inductive_nargs env ind = let (mib,mip) = Inductive.lookup_mind_specif env ind in - print_int mip.mind_nrealargs; - print_int (rel_context_length mib.mind_params_ctxt); - flush stdout; mip.mind_nrealargs + rel_context_nhyps mib.mind_params_ctxt (* Annotation for cases *) |