- Add freshness claims to the protocols that should guarantee freshness

spdl/SPORE/denning-sacco-lowe.spdl

@@ -17,6 +17,7 @@ usertype TimeStamp;
 secret k: Function;
 usertype PseudoFunction;
 const dec: PseudoFunction;
+const Fresh: Function;
 
 protocol denningSaccoLowe(I,R,S)
 {
@@ -32,7 +33,10 @@ protocol denningSaccoLowe(I,R,S)
         send_3(I,R, W);
         read_4(R,I, {Nr}Kir);
         send_5(I,R, {{Nr}dec}Kir);
-        claim_6(I,Niagree);
+        claim_I1(I,Niagree);
+        claim_I2(I,Nisynch);
+        claim_I3(I,Secret,Kir);
+        claim_I4(I,Empty,(Fresh,Kir));
     }    
     
     role R
@@ -44,7 +48,10 @@ protocol denningSaccoLowe(I,R,S)
         read_3(I,R, {Kir,I,T}k(R,S));
         send_4(R,I, {Nr}Kir);
         read_5(I,R, {{Nr}dec}Kir);
-        claim_8(R,Niagree);
+        claim_R1(R,Niagree);
+        claim_R2(R,Nisynch);
+        claim_R3(R,Secret,Kir);
+        claim_R4(R,Empty,(Fresh,Kir));
     }
     
     role S