(comment "CPSA 2.2.11")
(comment "Extracted shapes")

(herald "Woo-Lam Protocol")

(comment "CPSA 2.2.11")

(comment "All input read from woo_lam.scm")

(defprotocol woo_lam basic
  (defrole init
    (vars (my_init_id s name) (nb text))
    (trace (send my_init_id) (recv nb)
      (send (enc nb (ltk my_init_id s)))))
  (defrole resp
    (vars (my_resp_id yr_init_id s name) (nb text) (x mesg))
    (trace (recv yr_init_id) (send nb) (recv x)
      (send (enc yr_init_id x (ltk my_resp_id s)))
      (recv (enc nb (ltk my_resp_id s)))))
  (defrole server
    (vars (a b s name) (nb text))
    (trace (recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc nb (ltk b s))))))

(defskeleton woo_lam
  (vars (x mesg) (nb text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc nb (ltk b s)))))
  (label 0)
  (unrealized (0 4))
  (origs (nb (0 1)))
  (comment "2 in cohort - 2 not yet seen"))

(defskeleton woo_lam
  (vars (x mesg) (nb text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (defstrand init 3 (nb nb) (my_init_id b) (s s))
  (precedes ((0 1) (1 1)) ((1 2) (0 4)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand init 3) (enc nb (ltk b s))
    (0 4))
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc nb (ltk b s))))
    ((send b) (recv nb) (send (enc nb (ltk b s)))))
  (label 1)
  (parent 0)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x x))))
  (origs (nb (0 1))))

(defskeleton woo_lam
  (vars (x mesg) (nb nb-0 text) (s a b a-0 name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a-0) (b b) (s s))
  (defstrand resp 4 (x (enc nb (ltk a-0 s))) (nb nb-0) (my_resp_id b)
    (yr_init_id a-0) (s s))
  (precedes ((0 1) (2 2)) ((1 1) (0 4)) ((2 3) (1 0)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand resp 4)
    (enc a-0 (enc nb (ltk a-0 s)) (ltk b s)) (1 0))
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc nb (ltk b s))))
    ((recv (enc a-0 (enc nb (ltk a-0 s)) (ltk b s)))
      (send (enc nb (ltk b s))))
    ((recv a-0) (send nb-0) (recv (enc nb (ltk a-0 s)))
      (send (enc a-0 (enc nb (ltk a-0 s)) (ltk b s)))))
  (label 4)
  (parent 0)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x x))))
  (origs (nb (0 1))))

(defskeleton woo_lam
  (vars (nb text) (s a b name))
  (defstrand resp 5 (x (enc nb (ltk a s))) (nb nb) (my_resp_id b)
    (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a) (b b) (s s))
  (defstrand init 3 (nb nb) (my_init_id a) (s s))
  (precedes ((0 1) (2 1)) ((0 3) (1 0)) ((1 1) (0 4)) ((2 2) (0 2)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand init 3) (enc nb (ltk a s))
    (0 2))
  (traces
    ((recv a) (send nb) (recv (enc nb (ltk a s)))
      (send (enc a (enc nb (ltk a s)) (ltk b s)))
      (recv (enc nb (ltk b s))))
    ((recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc nb (ltk b s))))
    ((send a) (recv nb) (send (enc nb (ltk a s)))))
  (label 5)
  (parent 0)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x (enc nb (ltk a s))))))
  (origs (nb (0 1))))

(defskeleton woo_lam
  (vars (nb nb-0 text) (s a b a-0 name))
  (defstrand resp 5 (x (enc nb (ltk a s))) (nb nb) (my_resp_id b)
    (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a) (b b) (s s))
  (defstrand server 2 (nb nb) (a a-0) (b a) (s s))
  (defstrand resp 4 (x (enc nb (ltk a-0 s))) (nb nb-0) (my_resp_id a)
    (yr_init_id a-0) (s s))
  (precedes ((0 1) (3 2)) ((0 3) (1 0)) ((1 1) (0 4)) ((2 1) (0 2))
    ((3 3) (2 0)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand resp 4)
    (enc a-0 (enc nb (ltk a-0 s)) (ltk a s)) (2 0))
  (traces
    ((recv a) (send nb) (recv (enc nb (ltk a s)))
      (send (enc a (enc nb (ltk a s)) (ltk b s)))
      (recv (enc nb (ltk b s))))
    ((recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc nb (ltk b s))))
    ((recv (enc a-0 (enc nb (ltk a-0 s)) (ltk a s)))
      (send (enc nb (ltk a s))))
    ((recv a-0) (send nb-0) (recv (enc nb (ltk a-0 s)))
      (send (enc a-0 (enc nb (ltk a-0 s)) (ltk a s)))))
  (label 7)
  (parent 0)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x (enc nb (ltk a s))))))
  (origs (nb (0 1))))

(comment "Nothing left to do")

(defprotocol an_woo_lam basic
  (defrole init
    (vars (my_init_id s name) (nb text))
    (trace (send my_init_id) (recv nb)
      (send (enc nb (ltk my_init_id s)))))
  (defrole resp
    (vars (my_resp_id yr_init_id s name) (nb text) (x mesg))
    (trace (recv yr_init_id) (send nb) (recv x)
      (send (enc yr_init_id x (ltk my_resp_id s)))
      (recv (enc yr_init_id nb (ltk my_resp_id s)))))
  (defrole server
    (vars (a b s name) (nb text))
    (trace (recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc a nb (ltk b s))))))

(defskeleton an_woo_lam
  (vars (x mesg) (nb text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc a nb (ltk b s)))))
  (label 8)
  (unrealized (0 4))
  (origs (nb (0 1)))
  (comment "3 in cohort - 3 not yet seen"))

(defskeleton an_woo_lam
  (vars (nb text) (s a b name))
  (defstrand resp 5 (x nb) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (displaced 1 0 resp 4) (enc a nb (ltk b s))
    (0 4))
  (traces
    ((recv a) (send nb) (recv nb) (send (enc a nb (ltk b s)))
      (recv (enc a nb (ltk b s)))))
  (label 9)
  (parent 8)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x nb))))
  (origs (nb (0 1))))

(defskeleton an_woo_lam
  (vars (x mesg) (nb nb-0 text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (defstrand resp 4 (x nb) (nb nb-0) (my_resp_id b) (yr_init_id a)
    (s s))
  (precedes ((0 1) (1 2)) ((1 3) (0 4)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand resp 4) (enc a nb (ltk b s))
    (0 4))
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc a nb (ltk b s))))
    ((recv a) (send nb-0) (recv nb) (send (enc a nb (ltk b s)))))
  (label 10)
  (parent 8)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x x))))
  (origs (nb (0 1))))

(defskeleton an_woo_lam
  (vars (nb text) (s a b name))
  (defstrand resp 5 (x (enc nb (ltk a s))) (nb nb) (my_resp_id b)
    (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a) (b b) (s s))
  (defstrand init 3 (nb nb) (my_init_id a) (s s))
  (precedes ((0 1) (2 1)) ((0 3) (1 0)) ((1 1) (0 4)) ((2 2) (0 2)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand init 3) (enc nb (ltk a s))
    (0 2))
  (traces
    ((recv a) (send nb) (recv (enc nb (ltk a s)))
      (send (enc a (enc nb (ltk a s)) (ltk b s)))
      (recv (enc a nb (ltk b s))))
    ((recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc a nb (ltk b s))))
    ((send a) (recv nb) (send (enc nb (ltk a s)))))
  (label 14)
  (parent 8)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x (enc nb (ltk a s))))))
  (origs (nb (0 1))))

(defskeleton an_woo_lam
  (vars (x mesg) (nb nb-0 text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a) (b b) (s s))
  (defstrand resp 4 (x (enc nb (ltk a s))) (nb nb-0) (my_resp_id b)
    (yr_init_id a) (s s))
  (defstrand init 3 (nb nb) (my_init_id a) (s s))
  (precedes ((0 1) (3 1)) ((1 1) (0 4)) ((2 3) (1 0)) ((3 2) (2 2)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand init 3) (enc nb (ltk a s))
    (2 2))
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc a nb (ltk b s))))
    ((recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc a nb (ltk b s))))
    ((recv a) (send nb-0) (recv (enc nb (ltk a s)))
      (send (enc a (enc nb (ltk a s)) (ltk b s))))
    ((send a) (recv nb) (send (enc nb (ltk a s)))))
  (label 15)
  (parent 8)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x x))))
  (origs (nb (0 1))))

(comment "Nothing left to do")

(defprotocol tagged_an_woo_lam basic
  (defrole init
    (vars (my_init_id s name) (nb text))
    (trace (send my_init_id) (recv nb)
      (send (enc nb (ltk my_init_id s)))))
  (defrole resp
    (vars (my_resp_id yr_init_id s name) (nb text) (x mesg))
    (trace (recv yr_init_id) (send nb) (recv x)
      (send (enc yr_init_id x (ltk my_resp_id s)))
      (recv (enc "result" yr_init_id nb (ltk my_resp_id s)))))
  (defrole server
    (vars (a b s name) (nb text))
    (trace (recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc "result" a nb (ltk b s))))))

(defskeleton tagged_an_woo_lam
  (vars (x mesg) (nb text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc "result" a nb (ltk b s)))))
  (label 16)
  (unrealized (0 4))
  (origs (nb (0 1)))
  (comment "1 in cohort - 1 not yet seen"))

(defskeleton tagged_an_woo_lam
  (vars (nb text) (s a b name))
  (defstrand resp 5 (x (enc nb (ltk a s))) (nb nb) (my_resp_id b)
    (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a) (b b) (s s))
  (defstrand init 3 (nb nb) (my_init_id a) (s s))
  (precedes ((0 1) (2 1)) ((0 3) (1 0)) ((1 1) (0 4)) ((2 2) (0 2)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand init 3) (enc nb (ltk a s))
    (0 2))
  (traces
    ((recv a) (send nb) (recv (enc nb (ltk a s)))
      (send (enc a (enc nb (ltk a s)) (ltk b s)))
      (recv (enc "result" a nb (ltk b s))))
    ((recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc "result" a nb (ltk b s))))
    ((send a) (recv nb) (send (enc nb (ltk a s)))))
  (label 20)
  (parent 16)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x (enc nb (ltk a s))))))
  (origs (nb (0 1))))

(defskeleton tagged_an_woo_lam
  (vars (x mesg) (nb nb-0 text) (s a b name))
  (defstrand resp 5 (x x) (nb nb) (my_resp_id b) (yr_init_id a) (s s))
  (defstrand server 2 (nb nb) (a a) (b b) (s s))
  (defstrand resp 4 (x (enc nb (ltk a s))) (nb nb-0) (my_resp_id b)
    (yr_init_id a) (s s))
  (defstrand init 3 (nb nb) (my_init_id a) (s s))
  (precedes ((0 1) (3 1)) ((1 1) (0 4)) ((2 3) (1 0)) ((3 2) (2 2)))
  (non-orig (ltk a s) (ltk b s))
  (uniq-orig nb)
  (operation encryption-test (added-strand init 3) (enc nb (ltk a s))
    (2 2))
  (traces
    ((recv a) (send nb) (recv x) (send (enc a x (ltk b s)))
      (recv (enc "result" a nb (ltk b s))))
    ((recv (enc a (enc nb (ltk a s)) (ltk b s)))
      (send (enc "result" a nb (ltk b s))))
    ((recv a) (send nb-0) (recv (enc nb (ltk a s)))
      (send (enc a (enc nb (ltk a s)) (ltk b s))))
    ((send a) (recv nb) (send (enc nb (ltk a s)))))
  (label 21)
  (parent 16)
  (unrealized)
  (shape)
  (maps ((0) ((nb nb) (s s) (a a) (b b) (x x))))
  (origs (nb (0 1))))

(comment "Nothing left to do")