diff -r b46f48256dab -r 4919bd124a58 src/Pure/theory.ML
--- a/src/Pure/theory.ML	Wed Aug 27 11:24:35 2008 +0200
+++ b/src/Pure/theory.ML	Wed Aug 27 11:48:54 2008 +0200
@@ -38,7 +38,7 @@
   val add_defs_i: bool -> bool -> (bstring * term) list -> theory -> theory
   val add_finals: bool -> string list -> theory -> theory
   val add_finals_i: bool -> term list -> theory -> theory
-  val specify_const: Markup.property list -> bstring * typ * mixfix -> (string * typ) list ->
+  val specify_const: Properties.T -> bstring * typ * mixfix -> (string * typ) list ->
    theory -> term * theory
   val add_oracle: bstring * (theory * Object.T -> term) -> theory -> theory
 end