# HG changeset patch
# User haftmann
# Date 1207144723 -7200
# Node ID 9e7b7c478cb167f29cc244302b14b7454733a203
# Parent  6cd53b7ef55ce36284da48c4ed47d38c69f123ba
tuned

diff -r 6cd53b7ef55c -r 9e7b7c478cb1 src/Pure/Isar/overloading.ML
--- a/src/Pure/Isar/overloading.ML	Wed Apr 02 15:58:42 2008 +0200
+++ b/src/Pure/Isar/overloading.ML	Wed Apr 02 15:58:43 2008 +0200
@@ -19,7 +19,7 @@
   val add_improvable_syntax: Proof.context -> Proof.context
   val map_improvable_syntax: (improvable_syntax -> improvable_syntax)
     -> Proof.context -> Proof.context
-  val set_local_constraints: Proof.context -> Proof.context
+  val set_primary_constraints: Proof.context -> Proof.context
 end;
 
 structure Overloading: OVERLOADING =
@@ -33,16 +33,16 @@
 
 structure ImprovableSyntax = ProofDataFun(
   type T = {
-    local_constraints: (string * typ) list,
-    global_constraints: (string * typ) list,
+    primary_constraints: (string * typ) list,
+    secondary_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 = [],
+    primary_constraints = [],
+    secondary_constraints = [],
     improve = K NONE,
     subst = K NONE,
     unchecks = [],
@@ -50,11 +50,11 @@
   };
 );
 
-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',
+fun map_improvable_syntax f = ImprovableSyntax.map (fn { primary_constraints,
+  secondary_constraints, improve, subst, unchecks, passed } => let
+    val (((primary_constraints', secondary_constraints'), ((improve', subst'), unchecks')), passed')
+      = f (((primary_constraints, secondary_constraints), ((improve, subst), unchecks)), passed)
+  in { primary_constraints = primary_constraints', secondary_constraints = secondary_constraints',
     improve = improve', subst = subst', unchecks = unchecks', passed = passed'
   } end);
 
@@ -62,7 +62,7 @@
 
 fun improve_term_check ts ctxt =
   let
-    val { local_constraints, global_constraints, improve, subst, passed, ... } =
+    val { primary_constraints, secondary_constraints, improve, subst, passed, ... } =
       ImprovableSyntax.get ctxt;
     val tsig = (Sign.tsig_of o ProofContext.theory_of) ctxt;
     fun accumulate_improvements (Const (c, ty)) = (case improve (c, ty)
@@ -81,7 +81,7 @@
   in if eq_list (op aconv) (ts, ts'') andalso passed then NONE else
     if passed then SOME (ts'', ctxt)
     else SOME (ts'', ctxt
-      |> fold (ProofContext.add_const_constraint o apsnd SOME) global_constraints
+      |> fold (ProofContext.add_const_constraint o apsnd SOME) secondary_constraints
       |> mark_passed)
   end;
 
@@ -92,16 +92,16 @@
     val ts' = map (Pattern.rewrite_term thy unchecks []) ts;
   in if eq_list (op aconv) (ts, ts') then NONE else SOME (ts', ctxt) end;
 
-fun set_local_constraints ctxt =
+fun set_primary_constraints ctxt =
   let
-    val { local_constraints, ... } = ImprovableSyntax.get ctxt;
-  in fold (ProofContext.add_const_constraint o apsnd SOME) local_constraints ctxt end;
+    val { primary_constraints, ... } = ImprovableSyntax.get ctxt;
+  in fold (ProofContext.add_const_constraint o apsnd SOME) primary_constraints ctxt end;
 
 val add_improvable_syntax =
   Context.proof_map
     (Syntax.add_term_check 0 "improvement" improve_term_check
     #> Syntax.add_term_uncheck 0 "improvement" improve_term_uncheck)
-  #> set_local_constraints;
+  #> set_primary_constraints;
 
 
 (** overloading target **)