---

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

---

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

---

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


Date html generated: 2010_08_28-AM-11_48_54
Last ObjectModification: 2010_03_20-PM-09_43_23

Home Index