diff options
author | 2002-02-14 15:54:01 +0000 | |
---|---|---|
committer | 2002-02-14 15:54:01 +0000 | |
commit | 909d7c9edd05868d1fba2dae65e6ff775a41dcbe (patch) | |
tree | 7a9c1574e278535339336290c1839db09090b668 /contrib | |
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')
-rw-r--r-- | contrib/correctness/pcic.ml | 3 | ||||
-rw-r--r-- | contrib/extraction/extraction.ml | 4 |
2 files changed, 3 insertions, 4 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 ]; diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 7f6821eb8..4de693eb0 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -18,6 +18,7 @@ open Declarations open Environ open Reductionops open Inductive +open Inductiveops open Instantiate open Miniml open Table @@ -620,8 +621,7 @@ and abstract_constructor cp = (* Extraction of a case *) and extract_case env ctx ip c br = - let (mib,mip) = Global.lookup_inductive ip in - let ni = Array.map List.length (mip.mind_listrec) in + let ni = mis_constr_nargs ip in (* [ni]: number of arguments without parameters in each branch *) (* [br]: bodies of each branch (in functional form) *) let extract_branch j b = |