# HG changeset patch
# User wenzelm
# Date 1140202990 -3600
# Node ID fc736dbbe3334c976ab157ade62e467e7519e925
# Parent  2fc1a6da9366cb48c471aa78323b1b124aa0bb60
constrain: assert const declaration, optional type (i.e. may delete constraints);

diff -r 2fc1a6da9366 -r fc736dbbe333 src/Pure/consts.ML
--- a/src/Pure/consts.ML	Fri Feb 17 17:00:33 2006 +0100
+++ b/src/Pure/consts.ML	Fri Feb 17 20:03:10 2006 +0100
@@ -24,7 +24,7 @@
   val instance: T -> string * typ list -> typ
   val declare: NameSpace.naming -> bstring * typ -> T -> T
   val abbreviate: Pretty.pp -> Type.tsig -> NameSpace.naming -> bool -> bstring * term -> T -> T
-  val constrain: string * typ -> T -> T
+  val constrain: string * typ option -> T -> T
   val hide: bool -> string -> T -> T
   val empty: T
   val merge: T * T -> T
@@ -195,8 +195,10 @@
 
 (* constraints *)
 
-fun constrain (c, T) = map_consts (fn (decls, abbrevs, constraints) =>
-  (decls, abbrevs, Symtab.update (c, T) constraints));
+fun constrain (c, opt_T) consts = consts |> map_consts (fn (decls, abbrevs, constraints) =>
+  (the_const consts c handle TYPE (msg, _, _) => error msg;
+    (decls, abbrevs, constraints |>
+      (case opt_T of SOME T => Symtab.update (c, T) | NONE => Symtab.delete_safe c))));
 
 
 (* empty and merge *)