---

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

---

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

---

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


Date html generated: 2010_08_28-AM-11_47_29
Last ObjectModification: 2010_03_15-PM-09_18_27

Home Index