diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2016-09-20 09:09:23 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2016-09-20 11:39:41 +0200 |
commit | 97abe11a5ea271dcde5bd0aedd69056be22220eb (patch) | |
tree | 532c401fa08f5f2b493a51816974e1757282ec67 /library/lib.mli | |
parent | 1fda29d0179d60c83ead5db6e3062511aba7d264 (diff) |
Remove dead code in library/lib.ml.
Diffstat (limited to 'library/lib.mli')
-rw-r--r-- | library/lib.mli | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/library/lib.mli b/library/lib.mli index 7080b5dba..0a70152ef 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -138,10 +138,8 @@ val library_dp : unit -> Names.DirPath.t (** Extract the library part of a name even if in a section *) val dp_of_mp : Names.module_path -> Names.DirPath.t -val split_mp : Names.module_path -> Names.DirPath.t * Names.DirPath.t val split_modpath : Names.module_path -> Names.DirPath.t * Names.Id.t list val library_part : Globnames.global_reference -> Names.DirPath.t -val remove_section_part : Globnames.global_reference -> Names.DirPath.t (** {6 Sections } *) @@ -191,10 +189,3 @@ val discharge_kn : Names.mutual_inductive -> Names.mutual_inductive val discharge_con : Names.constant -> Names.constant val discharge_global : Globnames.global_reference -> Globnames.global_reference val discharge_inductive : Names.inductive -> Names.inductive - -(* discharging a constant in one go *) -val full_replacement_context : unit -> Opaqueproof.work_list list -val full_section_segment_of_constant : - Names.constant -> (Context.Named.t -> Context.Named.t) list - - |