diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-26 18:51:53 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-02-26 18:51:53 +0000 |
commit | b6c570ac655085c0af402e3e4546c4904fa015d0 (patch) | |
tree | 65007bda78e83fa083a1afed2a0196cc00bc38c3 /kernel/mod_subst.mli | |
parent | a58feae47d627b482c2e0fbdf5ec93fecf4b5435 (diff) |
Mod_subst: misc reformulations
* Remove the mind_of_delta and constant_of_delta functions,
prefer instead the {mind,constant}_of_delta_kn functions.
* Attempt to make subst_ind and subst_con0 more self-contained
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16247 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/mod_subst.mli')
-rw-r--r-- | kernel/mod_subst.mli | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/kernel/mod_subst.mli b/kernel/mod_subst.mli index f3c490652..ddc05380a 100644 --- a/kernel/mod_subst.mli +++ b/kernel/mod_subst.mli @@ -30,16 +30,25 @@ val add_inline_delta_resolver : val add_delta_resolver : delta_resolver -> delta_resolver -> delta_resolver -(** Effect of a [delta_resolver] on kernel name, constant, inductive, etc *) +(** Effect of a [delta_resolver] on a module path, on a kernel name *) +val mp_of_delta : delta_resolver -> module_path -> module_path val kn_of_delta : delta_resolver -> kernel_name -> kernel_name + +(** Build a constant whose canonical part is obtained via a resolver *) + val constant_of_delta_kn : delta_resolver -> kernel_name -> constant -val constant_of_delta : delta_resolver -> constant -> constant -val mind_of_delta_kn : delta_resolver -> kernel_name -> mutual_inductive -val mind_of_delta : delta_resolver -> mutual_inductive -> mutual_inductive +(** Same, but a 2nd resolver is tried if the 1st one had no effect *) -val mp_of_delta : delta_resolver -> module_path -> module_path +val constant_of_deltas_kn : + delta_resolver -> delta_resolver -> kernel_name -> constant + +(** Same for inductive names *) + +val mind_of_delta_kn : delta_resolver -> kernel_name -> mutual_inductive +val mind_of_deltas_kn : + delta_resolver -> delta_resolver -> kernel_name -> mutual_inductive (** Extract the set of inlined constant in the resolver *) val inline_of_delta : int option -> delta_resolver -> (int * kernel_name) list |