--- a/FSet.thy	Mon Nov 30 10:16:10 2009 +0100
+++ b/FSet.thy	Mon Nov 30 11:53:20 2009 +0100
@@ -295,8 +295,7 @@
 
 ML {* val qty = @{typ "'a fset"} *}
 ML {* val rsp_thms =
-  @{thms ho_memb_rsp ho_cons_rsp ho_card1_rsp ho_map_rsp ho_append_rsp ho_fold_rsp}
-  @ @{thms ho_all_prs ho_ex_prs} *}
+  @{thms ho_memb_rsp ho_cons_rsp ho_card1_rsp ho_map_rsp ho_append_rsp ho_fold_rsp} *}
 
 ML {* val (rty, rel, rel_refl, rel_eqv) = lookup_quot_data @{context} qty *}
 ML {* val (trans2, reps_same, absrep, quot) = lookup_quot_thms @{context} "fset"; *}