src/HOL/Auth/Kerberos_BAN.thy
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