diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-05-25 13:49:50 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-07-06 14:38:05 +0200 |
| commit | f77c2b488ca552b2316d4ebab1c051cb5a1347ab (patch) | |
| tree | 1efb41cfb54c9b06b70971b788e928e430c7e58c /pretyping/inductiveops.ml | |
| parent | a7ed091b6842cc78f0480504e84c3cfa261860bd (diff) | |
Renaming to more generic has_dependent_elim test
Diffstat (limited to 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 64932145e..e4f98e730 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -269,10 +269,10 @@ let projection_nparams_env env p = let projection_nparams p = projection_nparams_env (Global.env ()) p -let is_primitive_record_without_eta mib = +let has_dependent_elim mib = match mib.mind_record with - | Some (Some _) -> mib.mind_finite <> Decl_kinds.BiFinite - | _ -> false + | Some (Some _) -> mib.mind_finite == Decl_kinds.BiFinite + | _ -> true (* Annotation for cases *) let make_case_info env ind style = |