diff options
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 1cf74025ab..a64ae57f56 100644 --- a/plugins/funind/merge.ml +++ b/plugins/funind/merge.ml @@ -906,7 +906,7 @@ let merge_inductive (ind1: inductive) (ind2: inductive) let indl,_,_ = Command.extract_mutual_inductive_declaration_components [(indexpr,[])] in let mie,impls = Command.interp_mutual_inductive indl [] true (* means: not coinductive *) in (* Declare the mutual inductive block with its associated schemes *) - ignore (Command.declare_mutual_inductive_with_eliminations false mie impls) + ignore (Command.declare_mutual_inductive_with_eliminations Declare.UserVerbose mie impls) (* Find infos on identifier id. *) |