Sign.base_name;
authorwenzelm
Mon Oct 20 10:39:26 1997 +0200 (1997-10-20)
changeset 3934a9c8960e4da6
parent 3933 5ccabd20574c
child 3935 52c14fe8f16b
Sign.base_name;
src/Pure/section_utils.ML
     1.1 --- a/src/Pure/section_utils.ML	Mon Oct 20 10:39:04 1997 +0200
     1.2 +++ b/src/Pure/section_utils.ML	Mon Oct 20 10:39:26 1997 +0200
     1.3 @@ -16,7 +16,7 @@
     1.4  (*Make a definition lhs==rhs*)
     1.5  fun mk_defpair (lhs, rhs) = 
     1.6    let val Const(name, _) = head_of lhs
     1.7 -  in (name ^ "_def", Logic.mk_equals (lhs, rhs)) end;
     1.8 +  in (Sign.base_name name ^ "_def", Logic.mk_equals (lhs, rhs)) end;
     1.9  
    1.10  fun get_def thy s = get_axiom thy (s^"_def");
    1.11