# HG changeset patch
# User wenzelm
# Date 877336766 -7200
# Node ID a9c8960e4da6ea202fd6e93fd331adeed4372f1e
# Parent  5ccabd20574c160e111907e0cfcf9380732fe1a3
Sign.base_name;

diff -r 5ccabd20574c -r a9c8960e4da6 src/Pure/section_utils.ML
--- a/src/Pure/section_utils.ML	Mon Oct 20 10:39:04 1997 +0200
+++ b/src/Pure/section_utils.ML	Mon Oct 20 10:39:26 1997 +0200
@@ -16,7 +16,7 @@
 (*Make a definition lhs==rhs*)
 fun mk_defpair (lhs, rhs) = 
   let val Const(name, _) = head_of lhs
-  in (name ^ "_def", Logic.mk_equals (lhs, rhs)) end;
+  in (Sign.base_name name ^ "_def", Logic.mk_equals (lhs, rhs)) end;
 
 fun get_def thy s = get_axiom thy (s^"_def");