diff options
| author | herbelin | 2006-02-07 23:35:48 +0000 |
|---|---|---|
| committer | herbelin | 2006-02-07 23:35:48 +0000 |
| commit | 7e35396cc95d8e82b812c7e3d40690085845bf9e (patch) | |
| tree | 0830fc1330bc2698e11be6aed6e2bb10e6949e28 | |
| parent | b2dd8c5ffa04478438130138b598d4ca5ec2a760 (diff) | |
oubli de code de debugging
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8006 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 *) |