diff options
| author | Emilio Jesus Gallego Arias | 2019-10-24 21:06:54 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-10-25 00:12:03 +0200 |
| commit | 1923e2a87e8754e63e8d9edcdfe178a841ff96d2 (patch) | |
| tree | 6e3b195f46e97d089442136859ee042e0b7ac4df /vernac/record.ml | |
| parent | 4f82fb034f81fa762cfc47bfb3194c5f93a342eb (diff) | |
[inductive] [declare] Move full inductive declaration to declareInd
Patch suggested by Gaëtan Gilbert
Diffstat (limited to 'vernac/record.ml')
| -rw-r--r-- | vernac/record.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index 831fb53549..b60bfdfa22 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -466,7 +466,7 @@ let declare_structure ~cumulative finite ubinders univs paramimpls params templa in let mie = InferCumulativity.infer_inductive (Global.env ()) mie in let impls = List.map (fun _ -> paramimpls, []) record_data in - let kn = ComInductive.declare_mutual_inductive_with_eliminations mie ubinders impls + let kn = DeclareInd.declare_mutual_inductive_with_eliminations mie ubinders impls ~primitive_expected:!primitive_flag in let map i (_, _, _, _, fieldimpls, fields, is_coe, coers) = |