diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2015-01-05 16:33:20 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2015-01-05 16:39:48 +0100 |
| commit | 1c186562c2fc628d9ec4b6cda888750a642da117 (patch) | |
| tree | 6f02036ca12c5cbc073a282366fca9b06d77503f /plugins/funind | |
| parent | ba2ad4fdcfb7e56a71c5797b82644cc9a49dd18f (diff) | |
kernel/ind Change interface of declare_mind and declare_mutual
Removing unused argument and fixing bug #3899, now warning when a record
cannot be made primitive in Set Primitive Projections mode because it
has no projection or at least one undefinable projection.
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/merge.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/merge.ml b/plugins/funind/merge.ml index 8e3c0ba9c..93b9725e5 100644 --- a/plugins/funind/merge.ml +++ b/plugins/funind/merge.ml @@ -887,7 +887,7 @@ let merge_inductive (ind1: inductive) (ind2: inductive) let mie,impls = Command.interp_mutual_inductive indl [] false (*FIXMEnon-poly *) false (* means not private *) Decl_kinds.Finite (* means: not coinductive *) in (* Declare the mutual inductive block with its associated schemes *) - ignore (Command.declare_mutual_inductive_with_eliminations Declare.UserVerbose mie impls) + ignore (Command.declare_mutual_inductive_with_eliminations mie impls) (* Find infos on identifier id. *) |