diff options
| author | Maxime Dénès | 2019-05-29 16:30:49 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-05-29 16:30:49 +0200 |
| commit | a294ff8f9e73abb05f4449157422f5005eae7497 (patch) | |
| tree | 71a6d5338409b1077782ba79f2bde9a86f839aee /library | |
| parent | d47b279c2b0510535ef6f1affe23c7fab812c745 (diff) | |
| parent | 6f8acaf50ecfdcc23370f41b5150fa87b54e595c (diff) | |
Merge PR #10248: Move the Discharge module in the kernel and merge it with Cooking
Reviewed-by: SkySkimmer
Ack-by: herbelin
Reviewed-by: maximedenes
Ack-by: ppedrot
Diffstat (limited to 'library')
| -rw-r--r-- | library/lib.ml | 3 | ||||
| -rw-r--r-- | library/lib.mli | 1 |
2 files changed, 0 insertions, 4 deletions
diff --git a/library/lib.ml b/library/lib.ml index 4be288ed20..daa41eca65 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -474,9 +474,6 @@ let extract_hyps (secs,ohyps) = let instance_from_variable_context = List.map fst %> List.filter is_local_assum %> List.map NamedDecl.get_id %> Array.of_list -let named_of_variable_context = - List.map fst - let name_instance inst = (* FIXME: this should probably be done at an upper level, by storing the name information in the section data structure. *) diff --git a/library/lib.mli b/library/lib.mli index 5da76961a6..c19c3bf7fa 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -168,7 +168,6 @@ type abstr_info = private { } val instance_from_variable_context : variable_context -> Id.t array -val named_of_variable_context : variable_context -> Constr.named_context val section_segment_of_constant : Constant.t -> abstr_info val section_segment_of_mutual_inductive: MutInd.t -> abstr_info |