diff options
| author | sacerdot | 2004-11-16 15:49:08 +0000 |
|---|---|---|
| committer | sacerdot | 2004-11-16 15:49:08 +0000 |
| commit | b01b06d3a843c97adc6c0a0621b8d681c10fa6fe (patch) | |
| tree | d3f90b1dc590ffd917090290d9fd03e63c094a49 /parsing/extend.mli | |
| parent | d6c204c70c3b89b5bda4e7779cc4a20b5fa3f63f (diff) | |
Names.substitution (and related functions) and Term.subst_mps moved to
the new module kernel/mod_subst.ml.
MOTIVATION: mod_subst is compiled after kernel/term.ml; thus it is now
possible to define substitutions that also delta-expand constants
(by associating the delta-expanded form to the constant name).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6304 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/extend.mli')
| -rw-r--r-- | parsing/extend.mli | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/parsing/extend.mli b/parsing/extend.mli index d8f0827db6..c9558a970c 100644 --- a/parsing/extend.mli +++ b/parsing/extend.mli @@ -17,6 +17,7 @@ open Coqast open Ppextend open Topconstr open Genarg +open Mod_subst (*i*) type entry_type = argument_type @@ -98,7 +99,7 @@ val rename_command_entry : string -> string val explicitize_entry : string -> string -> constr_entry val subst_grammar_command : - Names.substitution -> grammar_command -> grammar_command + substitution -> grammar_command -> grammar_command (* unparsing objects *) @@ -113,7 +114,7 @@ type 'pat unparsing_hunk = | UNP_SYMBOLIC of string option * string * 'pat unparsing_hunk (*val subst_unparsing_hunk : - Names.substitution -> (Names.substitution -> 'pat -> 'pat) -> + substitution -> (substitution -> 'pat -> 'pat) -> 'pat unparsing_hunk -> 'pat unparsing_hunk *) @@ -130,8 +131,8 @@ type 'pat syntax_entry = { syn_hunks : 'pat unparsing_hunk list } val subst_syntax_entry : - (Names.substitution -> 'pat -> 'pat) -> - Names.substitution -> 'pat syntax_entry -> 'pat syntax_entry + (substitution -> 'pat -> 'pat) -> + substitution -> 'pat syntax_entry -> 'pat syntax_entry type 'pat syntax_command = { @@ -139,8 +140,8 @@ type 'pat syntax_command = { sc_entries : 'pat syntax_entry list } val subst_syntax_command : - (Names.substitution -> 'pat -> 'pat) -> - Names.substitution -> 'pat syntax_command -> 'pat syntax_command + (substitution -> 'pat -> 'pat) -> + substitution -> 'pat syntax_command -> 'pat syntax_command type syntax_rule = string * Coqast.t * Coqast.t unparsing_hunk list type raw_syntax_entry = precedence * syntax_rule list |