--- a/src/HOL/UNITY/Client.ML Wed Oct 21 13:01:17 1998 +0200
+++ b/src/HOL/UNITY/Client.ML Wed Oct 21 13:29:01 1998 +0200
@@ -19,7 +19,7 @@
(*split_all_tac causes a big blow-up*)
-claset_ref() := claset() delSWrapper "record_split_tac";
+claset_ref() := claset() delSWrapper record_split_name;
Addsimps [Cli_prg_def RS def_prg_Init];
program_defs_ref := [Cli_prg_def];
--- a/src/HOL/UNITY/Comp.ML Wed Oct 21 13:01:17 1998 +0200
+++ b/src/HOL/UNITY/Comp.ML Wed Oct 21 13:29:01 1998 +0200
@@ -9,7 +9,7 @@
*)
(*split_all_tac causes a big blow-up*)
-claset_ref() := claset() delSWrapper "record_split_tac";
+claset_ref() := claset() delSWrapper record_split_name;
Delsimps [split_paired_All];
--- a/src/HOL/UNITY/Handshake.ML Wed Oct 21 13:01:17 1998 +0200
+++ b/src/HOL/UNITY/Handshake.ML Wed Oct 21 13:29:01 1998 +0200
@@ -9,7 +9,7 @@
*)
(*split_all_tac causes a big blow-up*)
-claset_ref() := claset() delSWrapper "record_split_tac";
+claset_ref() := claset() delSWrapper record_split_name;
Addsimps [F_def RS def_prg_Init, G_def RS def_prg_Init];
program_defs_ref := [F_def, G_def];
--- a/src/HOL/UNITY/Lift.ML Wed Oct 21 13:01:17 1998 +0200
+++ b/src/HOL/UNITY/Lift.ML Wed Oct 21 13:29:01 1998 +0200
@@ -12,7 +12,7 @@
(*split_all_tac causes a big blow-up*)
-claset_ref() := claset() delSWrapper "record_split_tac";
+claset_ref() := claset() delSWrapper record_split_name;
Delsimps [split_paired_All];
--- a/src/HOL/UNITY/Mutex.ML Wed Oct 21 13:01:17 1998 +0200
+++ b/src/HOL/UNITY/Mutex.ML Wed Oct 21 13:29:01 1998 +0200
@@ -7,7 +7,7 @@
*)
(*split_all_tac causes a big blow-up*)
-claset_ref() := claset() delSWrapper "record_split_tac";
+claset_ref() := claset() delSWrapper record_split_name;
Addsimps [Mprg_def RS def_prg_Init];
program_defs_ref := [Mprg_def];