# HG changeset patch
# User wenzelm
# Date 1145996597 -7200
# Node ID 6cb10eea48c37d14b8d0402ed056d345136c2609
# Parent  26d5f3bcc933509a33ebe01934e15692570193d3
added remove_sort;

diff -r 26d5f3bcc933 -r 6cb10eea48c3 src/Pure/sorts.ML
--- a/src/Pure/sorts.ML	Tue Apr 25 22:23:11 2006 +0200
+++ b/src/Pure/sorts.ML	Tue Apr 25 22:23:17 2006 +0200
@@ -11,6 +11,7 @@
   val eq_set: sort list * sort list -> bool
   val union: sort list -> sort list -> sort list
   val subtract: sort list -> sort list -> sort list
+  val remove_sort: sort -> sort list -> sort list
   val insert_sort: sort -> sort list -> sort list
   val insert_typ: typ -> sort list -> sort list
   val insert_typs: typ list -> sort list -> sort list
@@ -60,6 +61,7 @@
 val op union = OrdList.union Term.sort_ord;
 val subtract = OrdList.subtract Term.sort_ord;
 
+val remove_sort = OrdList.remove Term.sort_ord;
 val insert_sort = OrdList.insert Term.sort_ord;
 
 fun insert_typ (TFree (_, S)) Ss = insert_sort S Ss