diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-04-04 14:49:06 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-04-04 14:49:06 +0200 |
| commit | 16536fd734d6a7aaa6ff85f56cef629df74ce36a (patch) | |
| tree | a9ffc8d0830c7c826ea164b5267f95985365fe63 /interp/notation.mli | |
| parent | 5569a06d062f913c66cbcb8bd01d4505e603d321 (diff) | |
| parent | 6aa58955515dff338ea85d59073dfc0d0c7648ab (diff) | |
Merge branch 'trunk-function_scope' of https://github.com/JasonGross/coq into JasonGross-trunk-function_scope
Diffstat (limited to 'interp/notation.mli')
| -rw-r--r-- | interp/notation.mli | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/interp/notation.mli b/interp/notation.mli index 7885814c7..480979ccc 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -29,7 +29,6 @@ type scopes (** = [scope_name list] *) type local_scopes = tmp_scope_name option * scope_name list -val type_scope : scope_name val declare_scope : scope_name -> unit val current_scopes : unit -> scopes @@ -153,7 +152,9 @@ val find_arguments_scope : global_reference -> scope_name option list type scope_class -val scope_class_of_reference : global_reference -> scope_class +(** Comparison of scope_class *) +val scope_class_compare : scope_class -> scope_class -> int + val subst_scope_class : Mod_subst.substitution -> scope_class -> scope_class option @@ -162,7 +163,11 @@ val declare_ref_arguments_scope : global_reference -> unit val compute_arguments_scope : Term.types -> scope_name option list val compute_type_scope : Term.types -> scope_name option -val compute_scope_of_global : global_reference -> scope_name option + +(** Get the current scope bound to Sortclass, if it exists *) +val current_type_scope_name : unit -> scope_name option + +val scope_class_of_class : Classops.cl_typ -> scope_class (** Building notation key *) |