# HG changeset patch
# User wenzelm
# Date 1322427218 -3600
# Node ID d314a4e8038f8c15469881fd77a9df9c94228d88
# Parent  2d995773da1a9339de1f4568d4b943975f6d6f3e
tuned;

diff -r 2d995773da1a -r d314a4e8038f src/Pure/Isar/proof_context.ML
--- a/src/Pure/Isar/proof_context.ML	Sun Nov 27 14:40:08 2011 +0100
+++ b/src/Pure/Isar/proof_context.ML	Sun Nov 27 21:53:38 2011 +0100
@@ -188,8 +188,8 @@
 
 (** Isar proof context information **)
 
-datatype ctxt =
-  Ctxt of
+datatype data =
+  Data of
    {mode: mode,                  (*inner syntax mode*)
     naming: Name_Space.naming,   (*local naming conventions*)
     syntax: Local_Syntax.T,      (*local syntax*)
@@ -198,83 +198,83 @@
     facts: Facts.T,              (*local facts*)
     cases: (string * (Rule_Cases.T * bool)) list};    (*named case contexts*)
 
-fun make_ctxt (mode, naming, syntax, tsig, consts, facts, cases) =
-  Ctxt {mode = mode, naming = naming, syntax = syntax,
+fun make_data (mode, naming, syntax, tsig, consts, facts, cases) =
+  Data {mode = mode, naming = naming, syntax = syntax,
     tsig = tsig, consts = consts, facts = facts, cases = cases};
 
 val local_naming = Name_Space.default_naming |> Name_Space.add_path "local";
 
 structure Data = Proof_Data
 (
-  type T = ctxt;
+  type T = data;
   fun init thy =
-    make_ctxt (mode_default, local_naming, Local_Syntax.init thy,
+    make_data (mode_default, local_naming, Local_Syntax.init thy,
       (Sign.tsig_of thy, Sign.tsig_of thy),
       (Sign.consts_of thy, Sign.consts_of thy), Facts.empty, []);
 );
 
-fun rep_context ctxt = Data.get ctxt |> (fn Ctxt args => args);
+fun rep_data ctxt = Data.get ctxt |> (fn Data rep => rep);
 
-fun map_context f =
-  Data.map (fn Ctxt {mode, naming, syntax, tsig, consts, facts, cases} =>
-    make_ctxt (f (mode, naming, syntax, tsig, consts, facts, cases)));
+fun map_data f =
+  Data.map (fn Data {mode, naming, syntax, tsig, consts, facts, cases} =>
+    make_data (f (mode, naming, syntax, tsig, consts, facts, cases)));
 
-fun set_mode mode = map_context (fn (_, naming, syntax, tsig, consts, facts, cases) =>
+fun set_mode mode = map_data (fn (_, naming, syntax, tsig, consts, facts, cases) =>
   (mode, naming, syntax, tsig, consts, facts, cases));
 
 fun map_mode f =
-  map_context (fn (Mode {stmt, pattern, schematic, abbrev}, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (Mode {stmt, pattern, schematic, abbrev}, naming, syntax, tsig, consts, facts, cases) =>
     (make_mode (f (stmt, pattern, schematic, abbrev)), naming, syntax, tsig, consts, facts, cases));
 
 fun map_naming f =
-  map_context (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
     (mode, f naming, syntax, tsig, consts, facts, cases));
 
 fun map_syntax f =
-  map_context (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
     (mode, naming, f syntax, tsig, consts, facts, cases));
 
 fun map_tsig f =
-  map_context (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
     (mode, naming, syntax, f tsig, consts, facts, cases));
 
 fun map_consts f =
-  map_context (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
     (mode, naming, syntax, tsig, f consts, facts, cases));
 
 fun map_facts f =
-  map_context (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
     (mode, naming, syntax, tsig, consts, f facts, cases));
 
 fun map_cases f =
-  map_context (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
+  map_data (fn (mode, naming, syntax, tsig, consts, facts, cases) =>
     (mode, naming, syntax, tsig, consts, facts, f cases));
 
-val get_mode = #mode o rep_context;
+val get_mode = #mode o rep_data;
 val restore_mode = set_mode o get_mode;
 val abbrev_mode = get_mode #> (fn Mode {abbrev, ...} => abbrev);
 
 fun set_stmt stmt =
   map_mode (fn (_, pattern, schematic, abbrev) => (stmt, pattern, schematic, abbrev));
 
-val naming_of = #naming o rep_context;
+val naming_of = #naming o rep_data;
 val restore_naming = map_naming o K o naming_of
 val full_name = Name_Space.full_name o naming_of;
 
-val syntax_of = #syntax o rep_context;
+val syntax_of = #syntax o rep_data;
 val syn_of = Local_Syntax.syn_of o syntax_of;
 val set_syntax_mode = map_syntax o Local_Syntax.set_mode;
 val restore_syntax_mode = map_syntax o Local_Syntax.restore_mode o syntax_of;
 
-val tsig_of = #1 o #tsig o rep_context;
+val tsig_of = #1 o #tsig o rep_data;
 val set_defsort = map_tsig o apfst o Type.set_defsort;
 fun default_sort ctxt = the_default (Type.defaultS (tsig_of ctxt)) o Variable.def_sort ctxt;
 
-val consts_of = #1 o #consts o rep_context;
+val consts_of = #1 o #consts o rep_data;
 val the_const_constraint = Consts.the_constraint o consts_of;
 
-val facts_of = #facts o rep_context;
-val cases_of = #cases o rep_context;
+val facts_of = #facts o rep_data;
+val cases_of = #cases o rep_data;
 
 
 (* name spaces *)
@@ -1134,7 +1134,7 @@
 fun pretty_abbrevs show_globals ctxt =
   let
     val ((space, consts), (_, globals)) =
-      pairself (#constants o Consts.dest) (#consts (rep_context ctxt));
+      pairself (#constants o Consts.dest) (#consts (rep_data ctxt));
     fun add_abbr (_, (_, NONE)) = I
       | add_abbr (c, (T, SOME t)) =
           if not show_globals andalso Symtab.defined globals c then I
diff -r 2d995773da1a -r d314a4e8038f src/Pure/assumption.ML
--- a/src/Pure/assumption.ML	Sun Nov 27 14:40:08 2011 +0100
+++ b/src/Pure/assumption.ML	Sun Nov 27 21:53:38 2011 +0100
@@ -67,7 +67,7 @@
 );
 
 fun map_data f = Data.map (fn Data {assms, prems} => make_data (f (assms, prems)));
-fun rep_data ctxt = Data.get ctxt |> (fn Data args => args);
+fun rep_data ctxt = Data.get ctxt |> (fn Data rep => rep);
 
 
 (* all assumptions *)
diff -r 2d995773da1a -r d314a4e8038f src/Pure/variable.ML
--- a/src/Pure/variable.ML	Sun Nov 27 14:40:08 2011 +0100
+++ b/src/Pure/variable.ML	Sun Nov 27 21:53:38 2011 +0100
@@ -144,7 +144,7 @@
   map_data (fn (is_body, names, consts, fixes, binds, type_occs, maxidx, sorts, constraints) =>
     (is_body, names, consts, fixes, binds, type_occs, maxidx, sorts, f constraints));
 
-fun rep_data ctxt = Data.get ctxt |> (fn Data args => args);
+fun rep_data ctxt = Data.get ctxt |> (fn Data rep => rep);
 
 val is_body = #is_body o rep_data;