diff options
| author | Pierre-Marie Pédrot | 2019-05-26 00:10:29 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-26 00:13:53 +0200 |
| commit | ac8978c308f4f24f4edfbae135d99fd9dc5ea23a (patch) | |
| tree | 90590ce6c533550cf6ebbe7efa6ab82de684df0b /interp | |
| parent | 787dd2e37c80dd75b09a3c2805bfcbfa4b821a68 (diff) | |
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.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/declare.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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; |