src/HOL/SET-Protocol/Purchase.thy
changeset 30607 c3d1590debd8
parent 30549 d2d7874648bd
child 32404 da3ca3c6ec81
     1.1 --- a/src/HOL/SET-Protocol/Purchase.thy	Fri Mar 20 11:26:59 2009 +0100
     1.2 +++ b/src/HOL/SET-Protocol/Purchase.thy	Fri Mar 20 15:24:18 2009 +0100
     1.3 @@ -1,5 +1,4 @@
     1.4  (*  Title:      HOL/Auth/SET/Purchase
     1.5 -    ID:         $Id$
     1.6      Authors:    Giampaolo Bella, Fabio Massacci, Lawrence C Paulson
     1.7  *)
     1.8  
     1.9 @@ -335,7 +334,7 @@
    1.10  	  THEN set_pur.AuthResUns [of concl: "PG j" M KP LID_M XID],
    1.11            THEN Says_to_Gets, 
    1.12  	  THEN set_pur.PRes]) 
    1.13 -apply (tactic "PublicSET.basic_possibility_tac")
    1.14 +apply basic_possibility
    1.15  apply (simp_all add: used_Cons symKeys_neq_imp_neq) 
    1.16  done
    1.17  
    1.18 @@ -371,7 +370,7 @@
    1.19  	  THEN set_pur.AuthResS [of concl: "PG j" M KP LID_M XID],
    1.20            THEN Says_to_Gets, 
    1.21  	  THEN set_pur.PRes]) 
    1.22 -apply (tactic "PublicSET.basic_possibility_tac")
    1.23 +apply basic_possibility
    1.24  apply (auto simp add: used_Cons symKeys_neq_imp_neq) 
    1.25  done
    1.26