tuned function name
authorhaftmann
Sat Jul 26 09:00:26 2008 +0200 (2008-07-26)
changeset 27686d1dbe31655be
parent 27685 cd561f58076d
child 27687 224a18d1a3ac
tuned function name
src/Pure/Isar/locale.ML
     1.1 --- a/src/Pure/Isar/locale.ML	Sat Jul 26 09:00:25 2008 +0200
     1.2 +++ b/src/Pure/Isar/locale.ML	Sat Jul 26 09:00:26 2008 +0200
     1.3 @@ -391,7 +391,7 @@
     1.4   of SOME loc => loc
     1.5    | NONE => error ("Unknown locale " ^ quote name);
     1.6  
     1.7 -fun add_locale name loc thy =
     1.8 +fun register_locale name loc thy =
     1.9    thy |> LocalesData.map (fn (space, locs) =>
    1.10      (Sign.declare_name thy name space, Symtab.update (name, loc) locs));
    1.11  
    1.12 @@ -1949,7 +1949,7 @@
    1.13      val axs' = map (Element.assume_witness thy') stmt';
    1.14      val loc_ctxt = thy'
    1.15        |> PureThy.note_thmss_qualified Thm.assumptionK bname facts' |> snd
    1.16 -      |> add_locale name {axiom = axs',
    1.17 +      |> register_locale name {axiom = axs',
    1.18          imports = empty,
    1.19          elems = map (fn e => (e, stamp ())) elems'',
    1.20          params = params_of elemss' |> map (fn (x, SOME T) => ((x, T), the (Symtab.lookup syn x))),