---

CR-responder6{i:l}(s) ==
  B  A: (["rcv"(data(m)); 
            
            "new"(n);
             
            "sign"(<<data(n), <data(m), data(A)>>, B, s>);
             
            "send"(<data(n), data(s)>)]
          @ ["rcv"(<data(k), data(s')>)])
          @ ["verify"(<<data(n), <data(m), <data(k), data(B)>>>, A, s'>)]

---

Definitions :  basic-seq-1-5: A  B: pas[A;B;m;n;x;y;z],  append: as @ bs,  cons: [car / cdr],  mk-pa: n(v),  token: "$token",  sdata-pair: <d1, d2>,  atom-sdata: data(a),  id-sdata: data(x),  pair: <a, b>,  nil: []
FDL editor aliases :  CR-responder6

---

CR-responder6\{i:l\}(s)  ==
    B  {}\mrightarrow{}  A:  (["rcv"(data(m)); 
                       
                        "new"(n);  "sign"(<<data(n),  <data(m),  data(A)>>,  B,  s>);  "send"(<data(n),  data(s)>)]
                    @  ["rcv"(<data(k),  data(s')>)])
                    @  ["verify"(<<data(n),  <data(m),  <data(k),  data(B)>>>,  A,  s'>)]


Date html generated: 2010_08_28-AM-11_49_02
Last ObjectModification: 2010_03_20-PM-09_42_07

Home Index