diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-14 15:54:01 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-14 15:54:01 +0000 |
| commit | 909d7c9edd05868d1fba2dae65e6ff775a41dcbe (patch) | |
| tree | 7a9c1574e278535339336290c1839db09090b668 /contrib/correctness | |
| parent | 67f72c93f5f364591224a86c52727867e02a8f71 (diff) | |
- Reforme de la gestion des args recursifs (via arbres reguliers)
- coqtop -byte -opt bouclait!
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2475 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness')
| -rw-r--r-- | contrib/correctness/pcic.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/correctness/pcic.ml b/contrib/correctness/pcic.ml index a6db1a5ab..ab8eab6c9 100644 --- a/contrib/correctness/pcic.ml +++ b/contrib/correctness/pcic.ml @@ -88,8 +88,7 @@ let sig_n n = Declare.declare_mind { mind_entry_finite = true; mind_entry_inds = - [ { mind_entry_nparams = succ n; - mind_entry_params = params; + [ { mind_entry_params = params; mind_entry_typename = id; mind_entry_arity = mkSet; mind_entry_consnames = [ cname ]; |