src/HOL/Auth/OtwayRees.ML
changeset 4477 b3e5857d8d99
parent 4470 af3239def3d4
child 4509 828148415197
     1.1 --- a/src/HOL/Auth/OtwayRees.ML	Tue Dec 23 11:56:09 1997 +0100
     1.2 +++ b/src/HOL/Auth/OtwayRees.ML	Wed Dec 24 10:02:30 1997 +0100
     1.3 @@ -39,7 +39,7 @@
     1.4  (*Nobody sends themselves messages*)
     1.5  goal thy "!!evs. evs : otway ==> ALL A X. Says A A X ~: set evs";
     1.6  by (etac otway.induct 1);
     1.7 -by (Auto_tac());
     1.8 +by Auto_tac;
     1.9  qed_spec_mp "not_Says_to_self";
    1.10  Addsimps [not_Says_to_self];
    1.11  AddSEs   [not_Says_to_self RSN (2, rev_notE)];
    1.12 @@ -49,13 +49,13 @@
    1.13  
    1.14  goal thy "!!evs. Says A' B {|N, Agent A, Agent B, X|} : set evs \
    1.15  \                ==> X : analz (spies evs)";
    1.16 -bd (Says_imp_spies RS analz.Inj) 1;
    1.17 +by (dtac (Says_imp_spies RS analz.Inj) 1);
    1.18  by (Blast_tac 1);
    1.19  qed "OR2_analz_spies";
    1.20  
    1.21  goal thy "!!evs. Says S' B {|N, X, Crypt (shrK B) X'|} : set evs \
    1.22  \                ==> X : analz (spies evs)";
    1.23 -bd (Says_imp_spies RS analz.Inj) 1;
    1.24 +by (dtac (Says_imp_spies RS analz.Inj) 1);
    1.25  by (Blast_tac 1);
    1.26  qed "OR4_analz_spies";
    1.27