diff options
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 a6db1a5ab8..ab8eab6c9e 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 7f6821eb87..4de693eb08 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 = |