diff options
| author | Emilio Jesus Gallego Arias | 2019-10-24 03:50:28 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-10-24 21:33:58 +0200 |
| commit | 4f82fb034f81fa762cfc47bfb3194c5f93a342eb (patch) | |
| tree | a397bd31a47488c6630b1d55d2e6f4081695f5fb /vernac/comInductive.ml | |
| parent | 43f037b5f3af7ab642bed4c6767bf7845156f92f (diff) | |
[declare] Split inductive declaration code to vernac/
The code is self-contained and only used by commands; this also
highlights the several `Libobject.obj` registered for each
declaration.
Diffstat (limited to 'vernac/comInductive.ml')
| -rw-r--r-- | vernac/comInductive.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/vernac/comInductive.ml b/vernac/comInductive.ml index 9270165379..24a141510e 100644 --- a/vernac/comInductive.ml +++ b/vernac/comInductive.ml @@ -15,7 +15,6 @@ open Util open Constr open Context open Environ -open Declare open Names open Libnames open Nameops @@ -574,7 +573,7 @@ let declare_mutual_inductive_with_eliminations ?(primitive_expected=false) mie p | _ -> () end; let names = List.map (fun e -> e.mind_entry_typename) mie.mind_entry_inds in - let (_, kn), prim = declare_mind mie in + let (_, kn), prim = DeclareInd.declare_mind mie in let mind = Global.mind_of_delta_kn kn in if primitive_expected && not prim then warn_non_primitive_record (mind,0); DeclareUniv.declare_univ_binders (GlobRef.IndRef (mind,0)) pl; |