diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-05 16:52:38 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-09-05 16:53:56 +0200 |
| commit | 901ff5c7cb30165ccf5a8e8d62eb3e775d3e962c (patch) | |
| tree | d6a68322929e833aae615e4cefb698f42f81b7ad /checker/inductive.ml | |
| parent | 581cbe36191901f1dc234fe77d619abfe7b8de34 (diff) | |
Rename eta_expand_ind_stacks, fix the one from the checker and adapt
it to the new representation of projections and the new mind_finite
type.
Diffstat (limited to 'checker/inductive.ml')
| -rw-r--r-- | checker/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml index f60094cfb..adb9e0347 100644 --- a/checker/inductive.ml +++ b/checker/inductive.ml @@ -40,14 +40,14 @@ let find_inductive env c = let (t, l) = decompose_app (whd_betadeltaiota env c) in match t with | Ind (ind,_) - when (fst (lookup_mind_specif env ind)).mind_finite -> (ind, l) + when (fst (lookup_mind_specif env ind)).mind_finite != CoFinite -> (ind, l) | _ -> raise Not_found let find_coinductive env c = let (t, l) = decompose_app (whd_betadeltaiota env c) in match t with | Ind (ind,_) - when not (fst (lookup_mind_specif env ind)).mind_finite -> (ind, l) + when (fst (lookup_mind_specif env ind)).mind_finite == CoFinite -> (ind, l) | _ -> raise Not_found let inductive_params (mib,_) = mib.mind_nparams |