- Add Compromised claim to test my new definition of freshness in combination

with key compromise (appears to be working pretty well)

spdl/SPORE/key-compromise/needham-schroeder-sk.spdl

@@ -15,6 +15,8 @@ secret k: Function;
 const dec,inc: Function;
 inversekeys(dec,inc);
 usertype SessionKey;
+const Fresh: Function;
+const Compromised: Function;
 
 protocol needhamschroederSessionKeyCompromise(C)
 {
@@ -33,6 +35,7 @@ protocol needhamschroederSessionKeyCompromise(C)
                         {{Nr}dec}Kir,
                         Kir
                );
+        claim_C3(C,Empty, (Compromised,Kir));
     }
 }
 
@@ -52,6 +55,7 @@ protocol needhamschroedersk(I,R,S)
         send_5(I,R,{{Nr}dec}Kir);
         claim_I2(I,Secret,Kir);
         claim_I3(I,Nisynch);
+        claim_I4(I,Empty,(Fresh,Kir));
     }    
     
     role R
@@ -64,6 +68,7 @@ protocol needhamschroedersk(I,R,S)
         read_5(I,R,{{Nr}dec}Kir);
         claim_R1(R,Secret,Kir);
         claim_R3(R,Nisynch);
+        claim_R4(R,Empty,(Fresh,Kir));
     }
 
     role S