- Improved these scenarios.

spdl/yahalom-ban.spdl

@@ -9,6 +9,8 @@ const s : Server;
 secret k : Function;
 
 
+
+
 protocol yahalomBan(A,B,S)
 {
 	role A
@@ -21,7 +23,7 @@ protocol yahalomBan(A,B,S)
 		send_1(A,B, A,na);
 		read_3(S,A, nb, {B,kab,na}k(A,S), ticket );
 		send_4(A,B, ticket, {nb}kab );
-		claim(A, Secret,kab);
+		claim_5(A, Secret,kab);
 	}
 
 	role B
@@ -34,7 +36,7 @@ protocol yahalomBan(A,B,S)
 		read_1(A,B, A,na);
 		send_2(B,S, B,nb, {A,na}k(B,S) );
 		read_4(A,B, {A,kab,nb}k(B,S) , {nb}kab );
-		claim(B, Secret,kab);
+		claim_6(B, Secret,kab);
 	}
 
 	role S