--- a/src/HOL/Auth/Message.ML Wed Sep 25 18:01:18 1996 +0200
+++ b/src/HOL/Auth/Message.ML Thu Sep 26 10:34:19 1996 +0200
@@ -202,6 +202,8 @@
addIs [parts_insertI]) 1);
qed "parts_cut_eq";
+Addsimps [parts_cut_eq];
+
(** Rewrite rules for pulling out atomic messages **)