author | paulson |
Thu, 28 Nov 1996 12:28:52 +0100 | |
changeset 2269 | 820f68aec6ee |
parent 2268 | 79a2f085a7fd |
child 2270 | d7513875b2b8 |
--- 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))));