# HG changeset patch
# User haftmann
# Date 1205182307 -3600
# Node ID 59ecf1ce822242aa7339810c04729c1ff40e5ed9
# Parent  f2cd4bf1e40429e15646c81e16f805c91d18f8d5
tuned

diff -r f2cd4bf1e404 -r 59ecf1ce8222 src/Pure/Isar/overloading.ML
--- a/src/Pure/Isar/overloading.ML	Mon Mar 10 21:51:46 2008 +0100
+++ b/src/Pure/Isar/overloading.ML	Mon Mar 10 21:51:47 2008 +0100
@@ -51,17 +51,19 @@
 
 (* generic check/uncheck combinators for improvable constants *)
 
-type improvable_syntax = {
-  local_constraints: (string * typ) list,
-  global_constraints: (string * typ) list,
-  improve: string * typ -> (typ * typ) option,
-  subst: string * typ -> (typ * term) option,
-  unchecks: (term * term) list,
-  passed: bool
-};
+type improvable_syntax = ((((string * typ) list * (string * typ) list) *
+  (((string * typ -> (typ * typ) option) * (string * typ -> (typ * term) option)) *
+    (term * term) list)) * bool);
 
 structure ImprovableSyntax = ProofDataFun(
-  type T = improvable_syntax;
+  type T = {
+    local_constraints: (string * typ) list,
+    global_constraints: (string * typ) list,
+    improve: string * typ -> (typ * typ) option,
+    subst: string * typ -> (typ * term) option,
+    unchecks: (term * term) list,
+    passed: bool
+  };
   fun init _ = {
     local_constraints = [],
     global_constraints = [],
@@ -72,12 +74,15 @@
   };
 );
 
-val map_improvable_syntax = ImprovableSyntax.map;
+fun map_improvable_syntax f = ImprovableSyntax.map (fn { local_constraints,
+  global_constraints, improve, subst, unchecks, passed } => let
+    val (((local_constraints', global_constraints'), ((improve', subst'), unchecks')), passed')
+      = f (((local_constraints, global_constraints), ((improve, subst), unchecks)), passed)
+  in { local_constraints = local_constraints', global_constraints = global_constraints',
+    improve = improve', subst = subst', unchecks = unchecks', passed = passed'
+  } end);
 
-val mark_passed = map_improvable_syntax
-  (fn { local_constraints, global_constraints, improve, subst, unchecks, passed } =>
-    { local_constraints = local_constraints, global_constraints = global_constraints,
-      improve = improve, subst = subst, unchecks = unchecks, passed = true });
+val mark_passed = (map_improvable_syntax o apsnd) (K true);
 
 fun improve_term_check ts ctxt =
   let
@@ -135,14 +140,7 @@
     |> ProofContext.init
     |> OverloadingData.put overloading
     |> fold (fn (v, (_, ty), _) => Variable.declare_term (Free (v, ty))) raw_overloading
-    |> map_improvable_syntax (K {
-        local_constraints = [],
-        global_constraints = [],
-        improve = K NONE,
-        subst = subst,
-        unchecks = unchecks,
-        passed = false
-      })
+    |> map_improvable_syntax (K ((([], []), ((K NONE, subst), unchecks)), false))
     |> add_improvable_syntax
   end;