more direct access to naming;
authorwenzelm
Sun Oct 25 19:17:42 2009 +0100 (2009-10-25)
changeset 3316550c4debfd5ae
parent 33164 b8fd9b6bba7c
child 33166 55f250ef9e31
more direct access to naming;
tuned signature;
src/Pure/Isar/proof.ML
src/Pure/Isar/proof_context.ML
src/Pure/sign.ML
     1.1 --- a/src/Pure/Isar/proof.ML	Sun Oct 25 19:14:46 2009 +0100
     1.2 +++ b/src/Pure/Isar/proof.ML	Sun Oct 25 19:17:42 2009 +0100
     1.3 @@ -162,7 +162,8 @@
     1.4    make_node (f (context, facts, mode, goal));
     1.5  
     1.6  val init_context =
     1.7 -  ProofContext.set_stmt true #> ProofContext.reset_naming;
     1.8 +  ProofContext.set_stmt true #>
     1.9 +  ProofContext.map_naming (K ProofContext.local_naming);
    1.10  
    1.11  fun init ctxt =
    1.12    State (Stack.init (make_node (init_context ctxt, NONE, Forward, NONE)));
     2.1 --- a/src/Pure/Isar/proof_context.ML	Sun Oct 25 19:14:46 2009 +0100
     2.2 +++ b/src/Pure/Isar/proof_context.ML	Sun Oct 25 19:17:42 2009 +0100
     2.3 @@ -21,7 +21,10 @@
     2.4    val restore_mode: Proof.context -> Proof.context -> Proof.context
     2.5    val abbrev_mode: Proof.context -> bool
     2.6    val set_stmt: bool -> Proof.context -> Proof.context
     2.7 +  val local_naming: Name_Space.naming
     2.8 +  val map_naming: (Name_Space.naming -> Name_Space.naming) -> Proof.context -> Proof.context
     2.9    val naming_of: Proof.context -> Name_Space.naming
    2.10 +  val restore_naming: Proof.context -> Proof.context -> Proof.context
    2.11    val full_name: Proof.context -> binding -> string
    2.12    val consts_of: Proof.context -> Consts.T
    2.13    val const_syntax_name: Proof.context -> string -> string
    2.14 @@ -92,11 +95,6 @@
    2.15    val get_fact_single: Proof.context -> Facts.ref -> thm
    2.16    val get_thms: Proof.context -> xstring -> thm list
    2.17    val get_thm: Proof.context -> xstring -> thm
    2.18 -  val add_path: string -> Proof.context -> Proof.context
    2.19 -  val mandatory_path: string -> Proof.context -> Proof.context
    2.20 -  val conceal: Proof.context -> Proof.context
    2.21 -  val restore_naming: Proof.context -> Proof.context -> Proof.context
    2.22 -  val reset_naming: Proof.context -> Proof.context
    2.23    val note_thmss: string -> (Thm.binding * (thm list * attribute list) list) list ->
    2.24      Proof.context -> (string * thm list) list * Proof.context
    2.25    val put_thms: bool -> string * thm list option -> Proof.context -> Proof.context
    2.26 @@ -232,6 +230,7 @@
    2.27    map_mode (fn (_, pattern, schematic, abbrev) => (stmt, pattern, schematic, abbrev));
    2.28  
    2.29  val naming_of = #naming o rep_context;
    2.30 +val restore_naming = map_naming o K o naming_of
    2.31  val full_name = Name_Space.full_name o naming_of;
    2.32  
    2.33  val syntax_of = #syntax o rep_context;
    2.34 @@ -923,15 +922,6 @@
    2.35  end;
    2.36  
    2.37  
    2.38 -(* name space operations *)
    2.39 -
    2.40 -val add_path = map_naming o Name_Space.add_path;
    2.41 -val mandatory_path = map_naming o Name_Space.mandatory_path;
    2.42 -val conceal = map_naming Name_Space.conceal;
    2.43 -val restore_naming = map_naming o K o naming_of;
    2.44 -val reset_naming = map_naming (K local_naming);
    2.45 -
    2.46 -
    2.47  (* facts *)
    2.48  
    2.49  local
     3.1 --- a/src/Pure/sign.ML	Sun Oct 25 19:14:46 2009 +0100
     3.2 +++ b/src/Pure/sign.ML	Sun Oct 25 19:17:42 2009 +0100
     3.3 @@ -12,6 +12,7 @@
     3.4      syn: Syntax.syntax,
     3.5      tsig: Type.tsig,
     3.6      consts: Consts.T}
     3.7 +  val map_naming: (Name_Space.naming -> Name_Space.naming) -> theory -> theory
     3.8    val naming_of: theory -> Name_Space.naming
     3.9    val full_name: theory -> binding -> string
    3.10    val full_name_path: theory -> string -> binding -> string
    3.11 @@ -125,7 +126,6 @@
    3.12    val parent_path: theory -> theory
    3.13    val mandatory_path: string -> theory -> theory
    3.14    val local_path: theory -> theory
    3.15 -  val conceal: theory -> theory
    3.16    val restore_naming: theory -> theory -> theory
    3.17    val hide_class: bool -> string -> theory -> theory
    3.18    val hide_type: bool -> string -> theory -> theory
    3.19 @@ -619,8 +619,6 @@
    3.20  
    3.21  fun local_path thy = thy |> root_path |> add_path (Context.theory_name thy);
    3.22  
    3.23 -val conceal = map_naming Name_Space.conceal;
    3.24 -
    3.25  val restore_naming = map_naming o K o naming_of;
    3.26  
    3.27