src/HOL/Auth/KerberosIV.thy
changeset 16796 140f1e0ea846
parent 16417 9bc16273c2d4
child 18886 9f27383426db
--- a/src/HOL/Auth/KerberosIV.thy	Wed Jul 13 15:06:04 2005 +0200
+++ b/src/HOL/Auth/KerberosIV.thy	Wed Jul 13 15:06:20 2005 +0200
@@ -1218,7 +1218,7 @@
 lemma NotExpirServ_NotExpirAuth_refined:
      "[| ~ ExpirServ Tt evs; ServLife + Tt <= AuthLife + Tk |]
       ==> ~ ExpirAuth Tk evs"
-by (blast dest: leI le_trans elim: leE)
+by (blast dest: leI le_trans dest: leD)
 
 
 lemma Confidentiality_B: