Extra fix needed in newN case
authorpaulson
Thu, 28 Nov 1996 12:28:52 +0100
changeset 2269 820f68aec6ee
parent 2268 79a2f085a7fd
child 2270 d7513875b2b8
Extra fix needed in newN case
src/HOL/Auth/Yahalom.ML
--- a/src/HOL/Auth/Yahalom.ML	Thu Nov 28 12:09:33 1996 +0100
+++ b/src/HOL/Auth/Yahalom.ML	Thu Nov 28 12:28:52 1996 +0100
@@ -402,7 +402,8 @@
 by (REPEAT_FIRST (fast_tac (!claset 
                               addSEs partsEs
                               addSDs  [Says_imp_sees_Spy RS parts.Inj]
-                              addDs  [impOfSubs analz_subset_parts,
+                              addEs  [leD RS notE]
+			      addDs  [impOfSubs analz_subset_parts,
                                       impOfSubs parts_insert_subset_Un,
                                       Suc_leD]
                               addss (!simpset))));