From ac8978c308f4f24f4edfbae135d99fd9dc5ea23a Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 26 May 2019 00:10:29 +0200
Subject: Actually merge Discharge into Cooking.

This is the intended module for the feature provided by the inductive
discharge. This allows for a bit of code sharing and cleanup.
---
 interp/declare.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'interp')

diff --git a/interp/declare.ml b/interp/declare.ml
index 7fccd4c933..928327d880 100644
--- a/interp/declare.ml
+++ b/interp/declare.ml
@@ -317,7 +317,7 @@ let discharge_inductive ((sp,kn),mie) =
   let mind = Global.mind_of_delta_kn kn in
   let mie = Global.lookup_mind mind in
   let info = cooking_info (section_segment_of_mutual_inductive mind) in
-  Some (Discharge.process_inductive info mie)
+  Some (Cooking.cook_inductive info mie)
 
 let dummy_one_inductive_entry mie = {
   mind_entry_typename = mie.mind_entry_typename;
-- 
cgit v1.2.3