renaming of evs in the Fake rule
authorpaulson
Sat, 09 Jun 2001 08:43:38 +0200
changeset 11366 b42287eb20cf
parent 11365 6d5698df0413
child 11367 7b2dbfb5cc3d
renaming of evs in the Fake rule
src/HOL/Auth/NS_Public.thy
src/HOL/Auth/NS_Public_Bad.thy
--- a/src/HOL/Auth/NS_Public.thy	Sat Jun 09 08:42:29 2001 +0200
+++ b/src/HOL/Auth/NS_Public.thy	Sat Jun 09 08:43:38 2001 +0200
@@ -19,8 +19,8 @@
          (*The spy MAY say anything he CAN say.  We do not expect him to
            invent new nonces here, but he can also use NS1.  Common to
            all similar protocols.*)
-   Fake: "\<lbrakk>evs \<in> ns_public;  X \<in> synth (analz (spies evs))\<rbrakk>
-          \<Longrightarrow> Says Spy B X  # evs \<in> ns_public"
+   Fake: "\<lbrakk>evsf \<in> ns_public;  X \<in> synth (analz (spies evsf))\<rbrakk>
+          \<Longrightarrow> Says Spy B X  # evsf \<in> ns_public"
 
          (*Alice initiates a protocol run, sending a nonce to Bob*)
    NS1:  "\<lbrakk>evs1 \<in> ns_public;  Nonce NA \<notin> used evs1\<rbrakk>
--- a/src/HOL/Auth/NS_Public_Bad.thy	Sat Jun 09 08:42:29 2001 +0200
+++ b/src/HOL/Auth/NS_Public_Bad.thy	Sat Jun 09 08:43:38 2001 +0200
@@ -23,8 +23,8 @@
          (*The spy MAY say anything he CAN say.  We do not expect him to
            invent new nonces here, but he can also use NS1.  Common to
            all similar protocols.*)
-   Fake: "\<lbrakk>evs \<in> ns_public;  X \<in> synth (analz (spies evs))\<rbrakk>
-          \<Longrightarrow> Says Spy B X  # evs \<in> ns_public"
+   Fake: "\<lbrakk>evsf \<in> ns_public;  X \<in> synth (analz (spies evsf))\<rbrakk>
+          \<Longrightarrow> Says Spy B X  # evsf \<in> ns_public"
 
          (*Alice initiates a protocol run, sending a nonce to Bob*)
    NS1:  "\<lbrakk>evs1 \<in> ns_public;  Nonce NA \<notin> used evs1\<rbrakk>