changeset 76290 | 64d29ebb7d3d |
parent 67613 | ce654b0e6d69 |
child 76299 | 0ad6f6508274 |
--- a/src/HOL/Auth/Kerberos_BAN.thy Thu Oct 13 16:00:22 2022 +0100 +++ b/src/HOL/Auth/Kerberos_BAN.thy Thu Oct 13 16:09:31 2022 +0100 @@ -295,7 +295,7 @@ Tk = CT(before Says Server A (Crypt K' \<lbrace>Number Tk, Agent B, Key K, Ticket\<rbrace>) on evs)" -apply (unfold before_def) +unfolding before_def apply (erule rev_mp) apply (erule bankerberos.induct, simp_all add: takeWhile_tail) apply auto