src/Pure/Isar/named_target.ML
changeset 38379 67d71449e85b
parent 38378 0b6fa86110e7
child 38381 7d1e2a6831ec
     1.1 --- a/src/Pure/Isar/named_target.ML	Wed Aug 11 15:45:15 2010 +0200
     1.2 +++ b/src/Pure/Isar/named_target.ML	Wed Aug 11 16:02:03 2010 +0200
     1.3 @@ -27,7 +27,7 @@
     1.4  fun named_target _ NONE = global_target
     1.5    | named_target thy (SOME locale) =
     1.6        if Locale.defined thy locale
     1.7 -      then Target {target = locale, is_locale = true, is_class = Class_Target.is_class thy locale}
     1.8 +      then Target {target = locale, is_locale = true, is_class = Class.is_class thy locale}
     1.9        else error ("No such locale: " ^ quote locale);
    1.10  
    1.11  structure Data = Proof_Data
    1.12 @@ -69,7 +69,7 @@
    1.13      val is_canonical_class = is_class andalso
    1.14        (Binding.eq_name (b, b')
    1.15          andalso not (null prefix')
    1.16 -        andalso List.last prefix' = (Class_Target.class_prefix target, false)
    1.17 +        andalso List.last prefix' = (Class.class_prefix target, false)
    1.18        orelse same_shape);
    1.19    in
    1.20      not is_canonical_class ?
    1.21 @@ -88,7 +88,7 @@
    1.22  
    1.23  fun class_target (Target {target, ...}) f =
    1.24    Local_Theory.raw_theory f #>
    1.25 -  Local_Theory.target (Class_Target.refresh_syntax target);
    1.26 +  Local_Theory.target (Class.refresh_syntax target);
    1.27  
    1.28  
    1.29  (* define *)
    1.30 @@ -102,7 +102,7 @@
    1.31      (((b, U), mx), (b_def, rhs)) (type_params, term_params) =
    1.32    Generic_Target.theory_foundation (((b, U), NoSyn), (b_def, rhs)) (type_params, term_params)
    1.33    #-> (fn (lhs, def) => locale_const_declaration ta Syntax.mode_default ((b, NoSyn), lhs)
    1.34 -    #> class_target ta (Class_Target.declare target ((b, mx), (type_params, lhs)))
    1.35 +    #> class_target ta (Class.declare target ((b, mx), (type_params, lhs)))
    1.36      #> pair (lhs, def))
    1.37  
    1.38  fun target_foundation (ta as Target {target, is_locale, is_class, ...}) =
    1.39 @@ -141,7 +141,7 @@
    1.40    if is_locale
    1.41      then lthy
    1.42        |> locale_abbrev ta prmode ((b, if is_class then NoSyn else mx), global_rhs) xs
    1.43 -      |> is_class ? class_target ta (Class_Target.abbrev target prmode ((b, mx), t'))
    1.44 +      |> is_class ? class_target ta (Class.abbrev target prmode ((b, mx), t'))
    1.45      else lthy
    1.46        |> Generic_Target.theory_abbrev prmode ((b, mx), global_rhs);
    1.47  
    1.48 @@ -181,7 +181,7 @@
    1.49  fun init_context (Target {target, is_locale, is_class}) =
    1.50    if not is_locale then ProofContext.init_global
    1.51    else if not is_class then Locale.init target
    1.52 -  else Class_Target.init target;
    1.53 +  else Class.init target;
    1.54  
    1.55  fun init_target (ta as Target {target, ...}) thy =
    1.56    thy