Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Deleted the superfluous assumption A ~= B, which must hold anyway by induction
authorpaulson
Tue, 22 Jul 1997 11:21:17 +0200
changeset 3541 2f5ac0f047a6
parent 3540 acd60238f191
child 3542 db5e9aceea49
Deleted the superfluous assumption A ~= B, which must hold anyway by induction
src/HOL/Auth/NS_Public.thy file | annotate | diff | comparison | revisions
src/HOL/Auth/NS_Public_Bad.thy file | annotate | diff | comparison | revisions 
--- a/src/HOL/Auth/NS_Public.thy	Tue Jul 22 11:16:57 1997 +0200
+++ b/src/HOL/Auth/NS_Public.thy	Tue Jul 22 11:21:17 1997 +0200
@@ -35,7 +35,7 @@
                 # evs  :  ns_public"
 
          (*Alice proves her existence by sending NB back to Bob.*)
-    NS3  "[| evs: ns_public;  A ~= B;
+    NS3  "[| evs: ns_public;
              Says A  B (Crypt (pubK B) {|Nonce NA, Agent A|}) : set evs;
              Says B' A (Crypt (pubK A) {|Nonce NA, Nonce NB, Agent B|})
                : set evs |]
--- a/src/HOL/Auth/NS_Public_Bad.thy	Tue Jul 22 11:16:57 1997 +0200
+++ b/src/HOL/Auth/NS_Public_Bad.thy	Tue Jul 22 11:21:17 1997 +0200
@@ -39,7 +39,7 @@
                 # evs  :  ns_public"
 
          (*Alice proves her existence by sending NB back to Bob.*)
-    NS3  "[| evs: ns_public;  A ~= B;
+    NS3  "[| evs: ns_public;
              Says A  B (Crypt (pubK B) {|Nonce NA, Agent A|}) : set evs;
              Says B' A (Crypt (pubK A) {|Nonce NA, Nonce NB|}) : set evs |]
           ==> Says A B (Crypt (pubK B) (Nonce NB)) # evs : ns_public"
isabelle